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Editorial 


Longtemps après les Etats-Unis et nos voisins d'Outre Manche, nous voyons enfin arriver sur le Conti- 
nent les matériels compatibles Apple. Nous avons réalisé pour nos lecteurs un premier test du Basis 108 
dans ce numéro; le numéro de Septembre verra, dans la même veine, un banc d'essai du Golem, 
apparu encore plus récemment 


Chez Apple, l'existence du Mcintosh est maintenant confirmée : nous pouvons espérer voir ce petit frère 
du Lisa débarquer en France dans moins d'un an. A quel prix ? De plus, à un horizon pareillement 
imprécisé et à un prix tout aussi inconnu, nous attendons la version portable de l'Apple II ou //e. 


Ce numéro est encore très riche et, comme les précedents, essaie de réaliser la quadrature du cercle : 
fournir aux débutants de nombreux articles à leur niveau, tout en proposant beaucoup de matière aux 
utilisateurs de niveaux intermédiaire et professionnel. 


Ceux qui désirent travailler sur leur micro avec des grands nombres pourront choisir entre le BASIC et 
le Pascal, avec les articles de Philippe Chemin, Michel Crimont et Gérard Michel. 


Les débutants et les nouveaux venus trouveront des renseignements utiles dans le sommaire thématique 
des huit premiers numéros de Pom's et les conseils aux débutants d'Alexandre Duback, ainsi que 
dans mon article sur l'accélération des programmes en BASIC. Ils pourront aussi analyser et utiliser la 
mini-base de données que nous à proposée Yves Volpi. Enfin, Gérard Michel consacre un nouvel 
article à la gestion de fichiers, dans la série fort appréciée des ‘Notions de base”! 


Les fanatiques de l’assembleur pourront utiliser, en guise d’apéritif, la recherche de codes binaires de 
notre fidèle lecteur Guido Bettiol. Après cela, il leur restera à s'offrir la pièce de résistance, avec le 
moniteur étendu de Thierry Le Tallec; encore un programme de Pom's qui, à lui seul, vaut plus que 
le prix de l'abonnement annuel ! ji 


Guy Mathieu nous montre comment créer facilement des caractères graphiques. Philippe Krepper 
nous donne le moven de ‘franciser” enfin les messages d'erreur du DOS (ou SED) : il ne reste plus 
qu'à faire des erreurs pour pouvoir apprécier... 


Enfin, dans un registre plus général, vous trouverez les bancs d'essai du Basis 108 et du langage 
PILOT, ainsi que du plus récent SuperPILOT. Les nouveautés sont épluchées par Jean-François 
Duvivier, et Olivier Herz nous présente sa dernière invention, le HBASIC. Le HBASIC est un Apple- 
soft enrichi de nombreuses structures inspirées des langages Pascal et Ada. Comme il aurait fallu consa- 
crer quasiment un numéro au HBASIC à lui tout seul, nous avons décidé de commercialiser celui-ci 
directement au prix de 150 francs, manuel d'utilisation compris. 

Il s'agit là du premier progiciel que nous commercialisons séparément, et sur lequel l’auteur percevra 
des droits bien mérités de 10% du chiffre d'affaires TTC. Avis aux autres créateurs ! 


Nous commençons à vous parler de communication avec l'interview baptisée ”Allo, Questel ?”. Nous 
vous en reparlerons de façon plus étendue dans les numéros suivants. 


Etant donné la croissance sensible du courrier des lecteurs, nous prions les lecteurs de joindre à leurs 
lettres une enveloppe timbrée pour la réponse : cela nous simplifie la tâche et permet de répondre plus 
vite. 


Puisque nous en sommes aux envois postaux, nous informons les lecteurs qui ont reçu en retard leurs 
envois par avion que nous n'y sommes malheureusement pour rien. Nous avions correctement timbré 
ces envois, mais les Postes ont barré la mention ‘Par Avion” - apparemment du personnel peu au 
courant des tarifications. Nous espérons que cela ne se reproduira pas. 


Le nombre d'abonnés continue à augmenter. Nous en profitons pour vous rappeler que ce sont les 
abonnés qui permettent à une revue de vivre. Si donc vous êtes en train d’hésiter à vous abonner, ne 
tardez plus. Plus vous serez nombreux, meilleur sera le service que nous pourrons vous rendre. 


Hervé Thiriez 


Ont collaboré à ce numéro : Guido Bettiol - Philippe Chemin - Michel Crimont - Alexandre Duback - Jean-François Duvivier - Olivier Herz - Philippe 
Krepper - Thierry Le Tallec - Guy Mathieu - Gérard Michel - Hervé Thiriez - Yves Volpi. 

Rédacteur : Olivier Herz - Dessins : Laurent Bidot. 
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Versailles - Rédaction : 59, bd de Glatigny - 78000 Versailles - Tél. : (3) 918.13.07 — Courrier des lecteurs (logiciel) : Olivier Herz - 17, rue du 
Gros Chêne - 44300 Nantes. Régie publicitaire : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tél. : (1) 
238.66.10. Diffusion auprès des boutiques et librairies : PSI Diffusion - BP 86 - 77402 Lagny-sur-Marne Cedex. 
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DEGTE 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4". 


| - 5 |/4"" en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 
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Le but de ces trois programmes est 
de permettre la constitution rapide 
d'une petite base de données, telle 
qu'un annuaire téléphonique, une 
collection de disques, une bibliothè- 
que, … 


On commence par définir la forme 
de la fiche, après quoi il ne reste plus 
qu’à remplir le fichier. 


Création de la fiche 


Chaque fiche est constituée par un 
certain nombre d'items (10 au maxi- 
mum pour des raisons de présenta- 
tion sur écran). À chaque item devra 
correspondre l'entrée d'une donnée 
ayant des caractéristiques bien défi- 
nies : 


Caractéristiques de type possibles : 


1) Alphanumérique avec une lon- 
gueur maximale autorisée 

2) Numérique de longueur limitée 
(maximum autorisé) 

3) Numérique entier de longueur li- 
mitée 

4) Date de la forme “JJ/MM/AA” ou 
bien “inconnue” 

5) Longueur imposée 

6) Alphanumérique de longueur im- 
posée 

7) Numérique de longueur imposée 

8) Numérique entier de longueur im- 
posée 

9) Type à définir au sein du pro- 
gramme de création du fichier. 


Caractéristiques de longueur : c’est le 
nombre maximum de caractères au- 
torisé pour la donnée (types 1 à 3; 
pour la date, elle est imposée à 8), 


Mini-base de données 


ou bien une longueur imposée à 
l'entrée (types 5 à 8). 

Pour des raisons de mise en page à 
l'écran, la longueur de l'item (libellé) 
augmentée de la longueur de la ré- 
ponse ne doit pas dépasser 38 carac- 
tères (tout dépassement est contrôlé 
et signalé par le programme). 


Le programme demande en fin de 
traitement le nom du fichier dans le- 
quel seront stockées les caractéristi- 
ques de la fiche. Répondre ainsi 
XXX, par exemple, entraîne la créa- 
tion d’un fichier ’XXX MEMO”. 
Après cela, le programme de création 
du fichier peut être utilisé. 


Création du fichier 
1) Charger le programme 


2) Mettre en ligne 3 le nom du fi- 
chier à traiter, soit XXX dans notre 
exemple. Le programme créera le fi- 
chier des données sous le nom ”’XXX 
FICHIER”. 


3) Sauver le programme, ainsi rendu 
opérationnel, sous le nom ”’XXX” (il 
n'est pas obligatoire de reprendre le 
même nom, mais cela soulage la mé- 
moire..). 


Le programme peut bien sûr être 
modifié, notamment en rajoutant 
d’autres contrôles de type (emplace- 
ment prévu aux lignes 650 à 699). 
Le menu peut également être 
complété pour d'autres traitements : 
il suffit d'intercaler à la ligne 20, 
avant le >”, les items du menu (10 
au maximum). Chaque item supplé- 
mentaire renvoie respectivement aux 
lignes 6000, 7000, 8000, 9000 et 
10000. 


Yves Volpi 


Les principales variables utilisées 
dans ce programme sont : 


ME$() : menu 

M$()  : liste des mois (inutilisée) 

F$(N.I) : fiches de dimension DI,NL 

FI$()  : intitulés des lignes 

DO$() : liste des types 

LO()  : longueurs permises pour 
les entrées 

TY() : types des différentes en- 
trées 

HT : tabulation horizontale 

VT : tabulation verticale 

UV : idem 

NF : nombre de fiches 

MF : nombre maximum de 
fiches possible (calculé 
par le programme) 

NL : nombre de lignes par 
fiche 

NM : idem 


Utilisation du fichier 


1) Charger le programme correspon- 
dant. 


2) Donner en ligne 3 le nom du fi- 
chier et … à vous de travailler. Le 
programme listé ici se contente de 
lire le fichier; à vous de programmer 
les traitements (tris, impressions ….) 
que vous désirez. 


Attention à la longueur de votre pro- 
gramme, qui doit rester compatible 
avec le nombre maximum de fiches 
traitées : si des arrêts de traitement se 
produisent, ils seront certainement 
dûs au fameux nettoyage de la mé- 
moire FRE{(O), alors patience... (ou 
reportez-vous au numéro 2 de Pom's 
pour remplacer cette routine de net- 
toyage). 





1 REM #*»* MINI-BASE - Y VOLPI *#x = DOS$S(3) + DOS(5) 
2 REM *#** CREATION DU FICHIER ##» 10 DOS(9) = “ A DEFINIR ET A PROGRAMMER" 
3 FFS = "“XXXXXXX" :DO$S(10) = DOS(3):D0S(11) = DOS(1 
4 KOCTET = 10000: REM RESERVE MEMOIRE 0) 
S DIM DOS(11) 11 MUS = “300:02 O2 AD 30 CO 88 DO 05 C 
6 DS = CHRS (13) + CHRS (4) E O1 O3 FO 09 CA DO F5 AE OO 03 4 
7 F1S = FFS + ‘ MEMO":FFS = FFS + “ FICH C 02 03 60 NDSC6G": FOR I = 1 TO 
IER" LEN CMUS): POKE 511 + I, ASC € M 
8 01$ = DS + "OPEN" + F1S:R1$ = DS + "RE ID$ (MUS,1,1)) + 128: NEXT : POKE 
AD" + F1S:C1S = DS + "CLOSE" + F1 72,0: CALL - 144 
$S:0$S = DS + "OPEN" + FFS:RS = Ds 13 DATA JANVIER ,FEVRIER ,MARS 
+ “READ" + FFS:CS = DS + "CLOSE" » AVRIL » MAI » JUIN 
+ FFS:WS = DS + "WRITE" + FFS JUILLET ,AOUT , SEPTEMBRE, O0 
3 DOS(2) = ‘’NUMERIQUE‘:DOS(1) = "ALPHA" CTOBRE ,NOVEMBRE , ‘DECEMBRE ‘“: D 
+ DOS(2):D0S(3) = ‘NUMERIQUE ENTI 1M MS(12): FOR I = 1 TO 12: READ 
ER"“:D0$(4) = "“DATE’JJ/MM/AA’ OÙ ’ MSCID: NEXT 
INCONNUE’":DOS(S) = DE LONGUEUR 19 REX 


IMPOSEE":DOS(6) = 
):D0S(7) = DOS(2) 
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DOS (1) 
+ DOS(S5):DOS(C8) 29 


+ DOSCS 





DATA ENTRER LES DONNEES,LIRE LES DON 





FRA ARTS) 


HER A 


a ee 
4 pa Lise DEL +] 
RENDU TT EMA CT LE 


FH FETE 





21 
22 


23 


29 


35 
36 
37 
393 


40 
41 


45 
46 


47 
48 
50 
S1 
S2 
S3 
56 


57 
358 
53 


60 


61 


62 


63 


64 


65 


66 


67 


70 


71 
72 


39 


100 


NEES,MODIFIER LES DONNEES, SAUVER 
LES DONNEES,FINIR, > 
DIM MES(10) 
MN = MN + 1: 
< + ut dE 
MN - 1: 
: PRINT 
L : END 


READ MESCMN): 
THEN 22 

IF MN > 10 THEN INVERSE 
"TROP DE LIGNES ‘: NORMA 


IF MESCMN) 


MN = 


ONERR GOTO 39 

PRINT DS"VERIFY"F1S 

GOTO 40 

HOME : PRINT ‘“ 
E “: END 

POKE 216,0 

PRINT O1s: 
T HT: 


IL FAUT CREER LA FICH 


PRINT R1S$: INPUT NL: INPU 

FOR I = 1 TO NL: INPUT FIS( 
1): INPUT TY(I): INPUT LO(I): NEX 
T : PRINT C1s 

REM CALCUL N MAX FICHES 

PRINT “UN INSTANT SVP “:A = ( PEEK 
111) + PEEK (112) »* 256) - « PEE 
K (1093) + PEEK (110) * 256): FOR 

1 = 1 TO NL:B = LO(CI) + B: NEXT 

MF = INT CCA - KOCTET) / (CB + 7 
#*# NL)): REM CALCUL MAX FIC 
HES 

IF NF > MF THEN MF = 

DIM FSCMF,NL) 

REM LIRE LE FICHIER EXISTANT 

ONERR GOTO 58 

PRINT DS"VERIFY"FFS 

PRINT O$: PRINT RS: INPUT NF 

FOR I = 1 TO NF: FOR J = 1 TO NL: IN 
PUT FS$S(I,J): NEXT : NEXT : PRINT 
C$: POKE 216,0 

REM 

POKE 216,0 

REM 


NF 


*#x MENU #4 


TEXT : HOME : INVERSE : HTAB 20 - L 
EN CFFS) / 2: PRINT FFS: NORMAL : 
POKE 34,2: VTAB 10 

FOR I = 1 TO MN: INVERSE : PRINT I:" 
-";: NORMAL PRINT MES(I): NEXT 
5: PRINT :VM PEEK (37) + 2 

VTAB VM: PRINT " VOTRE CHOIX 

VTAB VM: HTAB 17: CALL - 868: GET A 
S:A = VAL (AS): IF À < 1 OR À > 
MN THEN 63 

ON 4 GOTO 1000,2000,3000,4000,5000,8 
000,7000,8000,93000, 10000 

VTAB 4: HTAB S: PRINT "FICHE NO ‘“:: 
INVERSE : PRINT NF:: NORMAL : PRI 
NT * MAX = INVERSE : PRINT 
MF;: NORMAL : PRINT ‘“ FICHES“: R 
ETURN 

VTAB 4: HTAB 15: 
: NORMAL : 
> 1 THEN 

PRINT : RETURN 

POKE 768,DU: POKE 769,HZ: CALL 770: 
RETURN 

DU = S:HZ = 10: GOSUB 70: 

POKE 777,0:DU = 45:H2 = 
: POKE 777,1: RETURN 

REM 


CLEA 
0 


INVERSE : 
PRINT " 
PRINT 


PRINT NF: 
FICHE'";: IF NF 
“s" 


RETURN 
30: GOSUB 70 


REM VERIF SI = 


AU TYPE 1 ALPHANUM 


110 


130 
140 
19393 


200 
210 


229 
230 
250 
299 
300 
310 
315 
320 
3939 


400 
410 


415 


420 


430 


440 


450 


460 


461 


462 


463 


FOR II = 1 TO LEN CAS)D:RS = MIDS 
CAS,1II1,1): IF R$ = “," THEN ER = 
1: GOTO 140 

NEXT 

RETURN 

REM 

REM VERIF SI = AU TYPE 2 NUMERIQUE 

NV = O: FOR II = 1 TO LEN (CAS)D:A = 
ASC € MIDS (AS,II,1)): IF (A < 4 
8 AND A < > 46) OR A > 57 THEN E 
R = 1 
IF À = 46 THEN NV = NV + 1: IF NV > 
1 THEN ER = 1 

NEXT II 

RETURN 

REM 

REM VERIF SI = AU TYPE 3 NUMERI E 
NTIER 

FOR II = 1 TO LEN CAS)D:A = ASC 


MIDS (AS,1II,1)): 
S7 THEN ER = 1 


IF À < 48 OR A > 


NEXT 
RETURN 
REM 
REM VERIF SI = AU TYPE 4 DATE 
IF LEN CAS) < > 8 THEN ER = 1: GO 
TO 490 
IF AS = “"INCONNUE" THEN GOTO 490 
BI = O: IF MIDS (A4S,3,1) < > “/" O 
R MIDS CAS,6,1) < > ‘“/"* THEN ER 
= 1: GOTO 490 
AN = VAL ( STRS (19) + MIDS (AS,7, 
23): IF MIDS (A$,7,2) = "OO" THE 
N BI = 1 
IF € INT ÇAN / 4)) x 4 = AN THEN BI 
= À 
JO = VAL € MIDS (CAS,1,2))2:MO0O = VAL 
C MIDS (CAS,4,2)) 
IF JO > 31 OR JO < 1 THEN ER = 1: G 
OTO 430 
IF JO > 23 AND MO = 2 THEN ER = 1: 
GOTO 4930 
IF JO > 28 AND MO = 2 AND BI = © TH 
EN ER = 1: GOTO 490 
IF JO > 30 AND (MO = 4 OR MO = 6 OR 
MO = S OR MO = 11) THEN ER = 1: 
GOTO 490 


IF MO < 1 OR MO > 12 THEN ER = 1 
RETURN 
REM 
REM VERIF SI = 
IMPOSEE 

IF LEN CAS) <« 
RETURN 

REM 


AU TYPE S LONGUEUR 


> LOCI) THEN ER = 1 


REM 
DE 
GOSUB 

REM 
EDE 
GOSUB 

REM 


VERIF SI. = AU TYPE 1 ALPHANUM 

LONG IMPOSEE 

100: GOSUB SO0: RETURN 

VERIF SI = AU TYPE 2 NUMERIQU 

LONG IMPOSEE 

200: GOSUB 500: 
VERIF SI = AU 
ENTIER DE LONGUEUR 

GOSUB 300: GOSUB 500: 

REM LECTURE 1 FICHE 

PRINT “FICHE NO 
< 100 THEN PRINT 


RETURN 

TYPE 3 NUMERI 
IMPOSEE 
RETURN 

“:: INVERSE : IF I 
“O“;:3 IF I < 10 
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711 
720 


730 
740 


300 


310 


9311 
312 


313 


314 


320 
950 
352 
354 


356 


358 
3593 
360 
361 


339 
1000 


1001 
1002 
1010 
1011 


1020 
1030 
1040 


1050 
1060 
1100 
2000 
2001 
2010 
2020 
2030 
2031 
2032 
2040 
2050 


2100 
2999 


AS = 


THEN PRINT ‘“O"': 

PRINT I: NORMAL 

FOR J = 1 TO NL: PRINT FIS(J):;:: HTA 
B HT: PRINT FS(I,J): NEXT 

RETURN 

FOR J = 1 TO NL: PRINT FIS(J):: HTA 
B HT: PRINT FS(I,J): NEXT : RETUR 
N 

REM 

#**x#x ENTREE DES DONNEES ### 

VTAB I + VV: HTAB HT: CALL - 868: 
FOR II = 1 TO LO(I)D: PRINT ‘-":: 
NEXT : HTAB HT: GOSUB 9350 

IF AS = ‘“" AND I = 1 THEN 920 


IF € LEN CAS) > LO(I)D) OR (AS = 


AND I > 1) THEN GOSUB 72:AS = ‘“" 
: FOR II = I TO NL: VTAB II + VV: 
CALL - 9S8: PRINT FIS(CII): NEXT 


: GOTO 9310 
ON TY(I) GOSUB 100,200,300,400,500, 
600,610,620,650 
IF ER < > © THEN GOSUB 72:ER = 
AS = ‘"": GOSUB 9360: GOTO 910 
RETURN 
REM GET DES ENTREES 


O: 


GET RS$: GOSUB 71: PRINT R$S:: 
=  CHRS (13) THEN 959 

IF RS = CHRS (8) THEN ER = 
359 

ÀS = ÀS + RS: 
RETURN 

REM MESSAGES ERREUR 
VTAB 23: INVERSE : PRINT DOS(TY(I)) 
NORMAL : GET AS: VTAB 23: HTAB 
CALL - 9S8: RETURN 


IF RS 
2: GOTO 


GOTO 954 


.. 
FA 


1: 
END 


REM 
#*## ENTREE DES FICHES #%*# 


HOME 
VV = 6 
NF = NF + 1 
IF NF > MF THEN NF = 
SE : PRINT 
INTE “: 
GOSUB 65 
VTAB 6: FOR I = 1 TO NL 
VT = VV + 1: VTAB VT: HTAB 1: 
FIS(I): CALL - 958: NEXT 
FOR I = 1 TO NL: GOSUB 900: 
= “* THEN 1100 
FSCNF,1) = AS: NEXT : 
NF = NF - 1: GOTO 60 
REM LECTURE FICHES 
AS = 
HOME : GOSUB 66 
VTAB 16: HTAB 1: PRINT * 
VENIR AU MENU “: PRINT : 
= TOUTES LES FICHES" 
VTAB 20: HTAB 1: CALL - 868: 
T “ DONNEZ LE NUMERO “;AS 
IF AS = ““ THEN GOTO 2100 
IF AS = “=" THEN : HOME : FOR I = 
1 TO NF: GOSUB 700: GET AS: PRINT 
: NEXT : GOTO 2100 
NA = VAL CAS): IF NA < 1 OR NA > N 
F THEN 2010 
I = NA: HOME : 
OTO .2010 
GOTO 60 
REM 


NF - 1: INVER 
"“CAPACITE MAXIMUM ATTE 
NORMAL : GET AS: GOTO 60 
PRINT 
IF AS 


GOTO 1010 


<RTN> RE 
PRINT 


INPU 


GOSUB 700: GET AS: G 
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à propos de logiciels … 


VENEZ POSER LES QUESTIONS QUE VOUS VOUS POSEZ … 


Les performances 

Leurs différences 

Les matériels sur lesquels ils tournent 

Les configurations nécessaires ou souhaitables 


e LOGICIELS OUTILS - GÉNÉRATEURS D'APPLICATION 


DÉCISION 


TRAITE- 
MENT DE 
TEXTE 


LES 
FICHIERS 


LE 
GRAPHIQUE 
LE DESSIN 


LA 
COMMU- 
NICATION 


VISICALC - VISICAL 80 COL - VISICAL VF 
VISICALC VERSION ANANCÉE - MULTI PLAN 
CALCSTAR-SUPERCALCMAGICALCLISACALC 


APPLEWRITER :29-][e-/- 
MAGICWINDOW - PLUME - LISAWRITE 
WORDSTAR - MOTUS … 


PFS-PFS REPORT-DATAPLAN-DESKTOPPLAN 
QUIOFILE - VISIFILE - VISIDEX 
DBASE JC - LISALIST -DATASTAR -INFOSTAR 


COPYGRAPH EPSONGRAPH CEEMAC 
APPLEGRAPHICS - BUSINESS GRAPHICS 
PFS GRAPH - LISAGRAPH - LISADRAW … 


COMEWARE - CALVADOS 
(banque données) 
ACCES /j - IBM REFORMATEUR 


e LOGICIELS D'APPLICATION 


COMPTA 
BILITÉ 


FACTURA- 
TION 
STOCK 
PAYE 


BIBLIO 


Ÿ 
? 
n 
K 


ENQUETE 


OMEGAS - COMPTA //- COMPTA intégrée 
MACOMPTA - MICROCIEL - ORDIOUEST 


FAC #- GESTER 
MASTOCK - STOCK # 
COMTAINER 


PEGASE - MAPAYE - GIPSI 


« Le documentaliste » 

Logiciel de gestion documentaire permettant 
la recherche rapide d'une fiche bibliogra- 
phique faisant référence à un livre, un 
volume, un magazine, une publication et 
comportant 7 clés d'accès (2 noms d'auteurs 
1 nom d'ouvrage, 4 mots-clés). 


Dépouillement d'enquêtes, questionnaires, 
sondages, études marketing. Déroulement 
du questionnaire - tri à plat - tris croisés. 
Corrections questionnaires et réponses. 


Logiciel complet de gestion d'un cabinet 
d'assurances - trésorerie - police- risques 
fichiers assurés. 


e LOGICIELS SYSTEME & LANGAGE 


DOS - MEM/DOS - CP/M 
BASIC - PASCAL - FORTRAN - COBOL 


STAGES PASCAL : nous consulter 


ALTI 


39, rue Barrier 
69006 LYON (7) 824 00 03 





3000 


REM #** MODIFICATION FICHE *#=*» 


3001 AS = "" 
3010 TEXT : HOME : GOSUB 66 
3020 VTAB 16: HTAB 1: PRINT ‘“ <RTN> RE 
VENIR AU MENU “: PRINT 
3030 VTAB 20: HTAB 1: CALL - 868: INPU 
T ‘“ NUMERO DE LA FICHE. A MODIFIER 
"AS 
3031 IF AS = ‘“‘“ THEN GOTO 60 
3040 NA = VAL CAS): IF NA < 1 OR NA > N 
F THEN 3010 
30S0. I = NA: HOME : GOSUB 740: PRINT :VV 
=  PEEK (37) 
3060 VTAB VV: HTAB 5: CALL - 868: PRIN 
T “ON MODIFIE CETTE FICHE NO "NA 
;:" “33 INVERSE : PRINT “O/N"“:: NO 
RMAL : PRINT ‘“ ‘“:: GET AS: IF AS 
< > “O'* AND AS < > ‘“N'" THEN 306 
(e) 
3070 IF AS = “N'" THEN 3000 
3080 VV = PEEK (37) + 4: IF NL < 10 THE 
N VV = VV + 2 
3130 FOR I = 1 TO NL 
3140 VT = VV + I: VTAB VT: HTAB 1: PRINT 
FISCI): CALL - 958: NEXT 


3150 
3152 
3155 
3160 


39399 
4000 
4001 


4010 


4020 
5000 
5010 


FOR I = 1 TO NL 
GOSUB 900 
IF AS = ‘‘“ THEN 3152 
FSCNA,I) = AS: NEXT : PRINT : PRINT 
“PRESSEZ UNE TOUCHE ‘“;: GET AS: 
GOTO 3000 
REM 
REM #*#*% SAUVER LE FICHIER *#% 
HOME : VTAB 20: PRINT UN IN 
STANT SVP 
PRINT O$: PRINT WS: PRINT NF: FOR 
I = 1 TO NF: FOR J = 1 TO NL: PRI 
NT FS&(CI,J): NEXT : NEXT : PRINT C 
s 
GOTO 60 
REM FINIR 
HOME : VTAB 20: HTAB 1: CALL - 9S 
8: PRINT ‘“ AVEZ VOUS SAUVE LE FIC 
HIER “;: INVERSE : PRINT “O/N“:;: 
NORMAL : PRINT ‘“ “;: GET AS: IF A 
$ < > “O" AND AS < > “N‘“* THEN S 
010 
IF AS = “N'" THEN 60 
VTAB 20: HTAB 1: CALL - 958: PRIN 
T “ AU REVOIR.....": END 


——————— 


Création de la fiche 


1 DIM FIS(10),LO(10),TY(10) 
2 HOME : VTAB 20: INPUT “NOM DU FICHIER 
“>2FFS. 
3 FF$ = FFS + “ MEMO" 
4 DIM DOS(11) 
S DS = CHRS (13) + CHRS (4) 
7 0$ = DS + "OPEN" + FFS:WS = DS + "WRIT 
E“ + FFS:RS = DS + "READ" + FFS:C 
S = DS + "CLOSE" + FFS 
8 HOME : INVERSE : PRINT “ CREAT 
ION DE LA FICHE“: NORMAL : POKE 3 
4,2 
3 DOS$(2) = "NUMERIQUE"“:DO0S(1) = "ALPHA" 
+ DOS(2):D0S(3) = "NUMERIQUE ENTI 
ER“:DOS(4) = “DATE’JJ/MM/AA° OÙ ” 
INCONNUE’":DOS(S) = * DE LONGUEUR 
IMPOSEE"“:DO0O$(6) = DOS(1) + DOS(S 
):DOS(7) = DOS(2) + DOS(S):DOS(8) 
= DOS(3) + DOS(5) 
10 DOS(9) = “* A DEFINIR ET A PROGRAMMER" 
:DOS(10) = DOS(9):D0S(11) = DOS(1 
0) 
20 VTAB 10: HTAB 1: CALL - 958:I = I + 
1: PRINT “ DONNEZ LE NOM DE LA L 
IGNE NO “:I 
25 PRINT : INPUT * “:FSC1) 
26 IF FS(I) = “* THEN NL = I - 1: GOTO 
30 
27 IF I < 10 THEN GOTO 20 
28 IF I = 10 THEN NL = 10 
30 HH = O:HT = O: HOME : FOR I = 1 TO NL 
: PRINT FS(ID:HH = LEN (FS#(ID): 
IF HH > HT THEN HT = HH 
31 NEXT :HT = HT + 2 
32 PRINT : PRINT "LONGUEUR MAX DISPONIB 
LE POUR L’ ENTREE": PRINT : PRINT 
“ DES DONNEES “";: INVERSE : PRI 
NT 33 - HT;: NORMAL : PRINT “ CAR 
ACTERES" 


40 


55 
60 
61 


65 
66 
67 
70 


T 


80 


30 
92 


V 





868: PRINT 
PRINT ‘“O/N': 
: GET AS: IF 
“*N°* THEN 


VTAB 20: HTAB 1: CALL - 
“ EXACT";: INVERSE : 
: NORMAL : PRINT * *; 
AS < > “O" AND AS < > 
40 
IF AS = 
20 
HOME : VTAB 3: 
DES ENTRÉES 
RINT 
FOR I = 1 TO 11: 
NT “O"; 
PRINT I;* “;DOS(I): 
FOR I = 1 TO NL 
VTAB 20: HTAB 1: 
E : PRINT FS(I);: NORMAL : 
“ “;21 INPUT “ TYPE NO ":NO 
IF NO < 1 OR NO > 11 THEN 61 
YCI) = NO 
NEXT 
HOME : PRINT : PRINT : HTAB 10: PRIN 
T “FORMAT DES ENTRÉES": PRINT : P 
RINT : FOR I = 1 TO NL: PRINT F#( 
1);: HTAB HT: PRINT DOSCTY(IDD: N 
EXT 
VTAB 20: HTAB 1: CALL - 
“ EXACT";: INVERSE : 
: NORMAL : PRINT * *; 
AS < > “O" AND AS < > 
71 
IF AS = “N* 
HOME : PRINT 


"N" THEN HOME :I = O: GOTO 


"DONNEZ LE TYPE 
PRINT : P 


PRINT 
PRINT : 


IF I < 10 THEN PRI 
NEXT 


INVERS 
PRINT 


CALL - 868: 


868: PRINT 
PRINT “O/N'; 
: GET AS: IF 
‘°N°* THEN 


THEN 46 

"DONNEZ LA 
DES ENTREES “: PRINT : 
PRINT 33 - HT;: NORMAL : 
CARACTERES AU MAXIMUM" 

V = 6: FOR I = 1 TO NL 

VTAB VV + I: HTAB 1: CALL - 868: PR 
INT FS(CI);:: HTAB HT: INPUT ‘* LONG 
UEUR ‘“;NO: IF NO < 1 OR NO > 39 - 
RT THEN GOTO 92 

IF TY(I) = 4 THEN NO = 8 

VTAB VV + I: HTAB HT: CALL 


LONGUEUR MAX 
INVERSE : 
PRINT * 


- 868: F 
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FSI REINE TE 


RE 


OR Q = 1 TO NO: PRINT “-":: NEXT 99 IF A$ = "N" THEN 80 
:LO(I) = NO 100 HOME : VTAB 20: PRINT “UN INSTANT... 
97 NEXT … 
38 VTAB 20: HTAB 1: CALL - 868: PRINT 110 PRINT OS: PRINT WS: PRINT NL: PRINT 
“ EXACT“:: INVERSE : PRINT “O/N": HT: FOR I = i TO NL: PRINT FS(1) 
: NORMAL : PRINT “ ":: GET AS: IF : PRINT TY(CI)D: PRINT LO(I): NEXT 
AS < > “O" AND AS < > ‘“N" THEN : PRINT CS 
98 
Utilisation du fichier 52 PRINT DS"VERIFY"FFS 
53 PRINT OS: PRINT RS: INPUT NF 
1 REM #«x UTILISATION DU FICHIER «x» _e 7 ORDRE NES se 
2 REM *** NOM DU FICHIER LIGNE 3 »#+ CN CAR GE : : 
RER RCA ERCESET = 0008 57 PRINT "IL N’Y A PAS DE “:FFS: PRINT 
RM due " SUR LA DISQUETE": END 
S DS = CHRS (13) + CHRS (4) Dh Ro | 
6 F1S = FFS + “ MEMO":FFS = FFS + “ FICH , 
5 59  REM 
TER xx MENU x» 
7 01$ = DS + "OPEN" + F1S:R1$ = DS + "RE 
+ F18:C18 = DS + "CLOSE" + F1 | CO EXT : HOME : INVERSE : HTAB 20 - L 
NP Re EN (FFS) / 2: PRINT FFS: NORMAL : 
“ + FFS:CS = D$ + "CLOSE" + FF$:W EURE ass Tee 9 
. : 61 FOR I = 1 TO MN: INVERSE : PRINT I:" 
NRA ES NRETE" "RES -“;: NORMAL : PRINT MES(I): NEXT 
10 DATA JANVIER ,FEVRIER ,MARS es ete : 
ide Le pre : PRINT :VM = PEEK (37) + 2 
» , » e Mn …, 
SutLter :KOUS SEPTEMBRE, oc | $2 VTAB VM: PRINT “ VOTRE CHOIX *; 
u : 63 VTAB VM: HTAB 17: CALL - 868: GET A 
TOBRE ,NOVEMBRE ,"DECEMBRE “: DI DEA eo VA GI S TRIE dira à 
M M$S(12): FOR I = 1 TO 12: READ M k ° 
Te Een MN THEN 63 
11 MUS = “300:02 02 AD 30 co 88 Do os «© | 54 ON A à 
E O1 03 FO 09 CA DO F5 AE 00 O3 4 , , ’ ’ ‘ 
C 02 03 60 ND9C6G": FOR I = 1 TO 
LEN (MUS): POKE 511 + I, ASC € M 
IDS (MUS,1,1)) + 128: NEXT : POKE 
72,0: CALL - 144 
19 ren CARTES D’ENTRÉES 
20 DATA TRAITEMENT NO 1,TRAITEMENT NO 2 ANALOGIQUES 
, TRAITEMENT NO 3,TRAITEMENT NO 4, æ 
ETC ee > COMPATIBLES - APPLE‘ 
21 DIM MES(10) 
22 MN = MN + 1: READ MESCMN): IF MESCMN) EF $ 
< > ‘’>"" THEN 22 Je 
23 MN = MN - 1: IF MN > 10 THEN INVERSE 
: PRINT “TROP DE LIGNES “: NORMA 
L : END 
23 REM 
35 ONERR GOTO 393 * Nombre d'entrées : 16SE - 8DI ou 4 entrées isolées à 250 V 
36 PRINT DS"VERIFY"F1S * Entrée + 10mV à +10 V 
37 GOTO 40 Résolution 12 - 14 ; 16 bits 
39 HOME : PRINT “ IL FAUT CREER LA FICH ee Ge SRE SONT avec DMA AUD 
E ‘“: END Options : — Gain programmable BR CASE 
40 POKE 216,0 - Contrôleur de DMA F RAN 
41 PRINT O1$: PRINT R1S: INPUT NL: INPU Ne RiesE 
T HT: FOR I = i TO NL: INPUT FIS( — Logiciels 
1): INPUT TY(CI): INPUT LO(I): NEX En standard : Horloge temps réel programmable 
T : PRINT C1s DES CENTRALES DE MESURE COMPLETES 
46 PRINT “UN INSTANT SVP “:A = ( PEEK ÉTUDIÉES SUR CAHIER DES CHARGES 
111) + PEEK (112) * 256) - ( PEE 
K (109) + PEEK (110) *# 256): FOR Catalogues et notices techniques : 
I = 1 TO NL:B = LOCI) + B: NEXT 
:MF = INT (CA - KOCTET) / CB + 7 sacasa | ï 
* NL)DD: IF NF > MF THEN NF = MF AR Us PIE MIRENE Ÿ 
47 IF NF > MF THEN MF = NF 2. tue de l'Avéni è 
2e DIN PRNAFA NEA 92360 Meudon-La-Forêt $ 
SO REM LIRE LE FICHIER EXISTANT Tél. : (1) 630.68.39 - Télex : 205157 g 
51 ONERR GOTO 57 . _— | 
téfrstteress RE "* 
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S.E.P, Marketing 


D.S.A. INFORMATIQUE MICRO ALPHA SOFT 


5, bd Dubouchäge 
06000 NICE 
Tél. (93) 85.15.96 


+ La division de la longueur des program- 
mes par 20. 
+ La possibilité réelle de dessiner ses mas- 
ques de saisie ou d'impression. 
+ Une indépendance totale de la périphérie 
choisie par rapport au système. 
e L'intégralité du système contenu sur une carte 
mémoire de 20 K. 
+ Une gestion de mémoire de 140 K à 120 mégas. 
+ Des utilitaires déterminants 
- un générateur de programmes de ges- 
tion de fichiers permettant même le séquentiel 
indexé multiclé 
- un générateur d'écrans. 


SEEMI 


25200 MONTBELIARD 
Tél. (81) 97.16.46 


44401 REZE CEDEX 
Tél. (40) 75.52.80 


11, impasse du Lacquet 61, rue Ch. Rivière - B.P. 0701 22, rue des 3 Pierres: 


Carte MEM/DOS 6502 


LE SYSTEME D'EXPLOITATION 
DU 6502 - MONCPOSTE/MULTIPOSTE 


e CALL FN, une nouvelle commande basic, très 
puissante, intégrée au système permettant 
l'appel des sous-programmes par noms avec 
passage de paramètres et variables locales. 

e Une version multiposte assurant la mise en 
commun totale des ressources sans conflit et 
l'autonomie des postes intelligents disposant 
de leur propre unité centrale. 

e Des programmes compatibles APPLE IC et 
APPLE fffautomatiquement transférables sur 
COMMODORE 8096. 

eEt pour demain, des logiciels développés 
aujourd’hui directement compatibles avec le 
réseau local memnet. 


micro 
informatique 
@C__service 


3, rue Meyerbeer - 06000 NICE - Télex 461 916 F 


G-B 
C.I.C.C. 


Grove house 
the bordage 
St Peter Port 
GUERNSEY 
(0481) 20155 


BENELUX 
MEGAVOLT S.A. 
Rue de Bleurmont 
32 B 

B 4920 EMBOURG 
(041) 43.01.28 


MICROMEGAS 


69007 LYON 
Tél. (7) 861.19.52 





Applesoft n'aime guère les nombres 
qui comportent trop de chiffres: si 
vous ne l'avez pas encore constaté, 
vous risquez fort d'en faire les frais 
un jour ou l’autre ! 


Ainsi, Applesoft n'affiche jamais plus 
de 9 chiffres et n'effectue pas davan- 
tage de calculs justes au-delà de cette 
limite. Jusqu'à un certain point, le 
problème se limite à des arrondis in- 
tempestifs et souvent curieux; ensuite 
tous les nombres sont représentés en 
notation scientifique (Cf pages 31 à 
33 du manuel de référence Apple II 
Plus pour plus de détails). 

Mais pour certaines applications, et 
typiquement dans les problèmes de 
gestion, il peut être nécessaire d’ob- 
tenir des calculs justes ’au centime”, 
et de voir ”999.999.999 99” comme 
résultat d’une addition plutôt que 
71E09”. 


L'ensemble des routines présenté ci- 
après permet de réaliser des addi- 
tions et des soustractions au format 
gestion, en traitant les nombres 
comme des chaînes de caractères (ce 
qui autorise tout de même 254 chif- 
fres par nombre !). Quelques explica- 
tions doivent suffire pour en analyser 
le mécanisme et les principes d’uütili- 
sation. 


- Lignes 20 à 26 : tout nombre rangé 
en M$ et comportant au plus 2 déci- 
males est ajusté à un format unique 
comportant exactement 2 décimales; 
si nécessaire, un zéro est ajouté de- 
vant le point décimal. 

À noter que l’utilisation des routines 
suppose que tous les nombres traités 
sont en notation anglo-saxonne et ne 
comportent effectivement pas plus de 
2 décimales. C'est évidemment dans 
la procédure de saisie des données, 


Routines de calcul 
929 e 29 
en ‘Format Gestion” Ge 


par l’analyse des chaînes de caractè- 
res fournies, que le respect de cette 
règle doit être contrôlé. 


- Lignes 30 à 42 : routine d’addition. 
Les deux nombres à additionner sont 
stockés dans Z1$ et Z2$. Il s’agit fi- 
nalement de réaliser l'addition 
comme à la main, chiffre par chiffre, 
en tenant compte des retenues éven- 
tuelles. Ces retenues sont détectées 
lorsque la longueur de la variable ré- 





sultat M$ est égale au nombre de 
chiffres traités Z1, y compris celui qui 
est en cours de traitement (lignes 38 
et 40). 


- Lignes 50 à 70: routine de sous- 
traction. Mêmes principes que ci- 
dessus, mais la procédure est un peu 
plus compliquée, au début comme à 
la fin. 

Tout d’abord, on ne peut pas tou- 
jours utiliser la fonction VAL pour 


déterminer quel est le plus grand 
nombre des deux. En effet, pour des 
grands nombres qui ne différeraient 
que par les décimales, par exemple, 
la valeur retournée par VAL serait 
identique. Il est donc parfois néces- 
saire d'examiner le problème chiffre 
par chiffre (lignes 50 à 53). 

Par ailleurs, il faut tenir compte des 
retenues en chaîne éventuelles lors- 
que le plus petit des deux nombres 
_ très inférieur à l’autre (lignes 66 à 

). 


- Lignes 80 à 84: cette routine est 
utilisée pour l'affichage des résultats 
en notation française avec virgule de 
décimalisation et points pour les puis- 
sances de mille. 


- Le début du programme (lignes 10 
à 17) fournit quelques exemples de 
démonstration avec des nombres gé- 
nérés de façon aléatoire. 


Exemple d'exécution 
du programme 


11+72=8, 2816180BE+10 
11-12=-3,87844131E+10 


22015833851,16 608002963985, 33 
2201588385: 16 608002969635. 33 


11$+128=82816180814. 49 
82. 616. 180. 816, 49 
11$-128=-38784413112. 17 


-38. 784. 413. 112, 17 








S  REM 
: PRINT Z15,2Z2S: PRINT : GOSUB 30 
a 16 PRINT “Z1S+22S-"MS: GOSUB 80: PRINT 
: PRINT MS: PRINT : GOSUB 50: PRI 
10 FOR U = 1 TO 10:21 = INT € RND CU) NT “2Z1$-22$-"MS: GOSUB 80: PRINT 
* 1000000 * RND (1)) / 100:71sS = 5: PRINT MS: PRINT : GET Z$: NEXT 
CS STRS (21):7Z1 = INT (Z1 * RND 17 END 
(1) * 1000):Z21$ =  STRS (Z1) + Z1 193 REM 
$:22 = INT € RND CU) * 1000000 *# ***x ROUTINE DE CALCUL ### 
RND (13) / 100:2Z2$ = STRS (22) 
5:22 = INT (Z2 #  RND (1) #* 1000) 20 IO = O: FOR I = LEN (MS) TO 1 STEP 
11 225$ = STRS (22) + 22s - 1:28 = MIDS (MS,1,1): IF ZsS = 
13 PRINT :2Z1 = VAL (21$):22 = VAL (22 °’.* THEN IO = I:I = 1 
$S): INVERSE : PRINT ‘"Z1+22="21 + 22 NEXT : IF IO = O THEN MS = MS + “,.00 
22: PRINT "“21-22="Z1 - Z2: NORMAL "1 RETURN 
: PRINT 24 IF 1IO = LEN (MS) - 1 THEN MS = MS + 
15 PRINT Z1$,Z2S:MS = 21S: GOSUB 20:215 O0" 
= MS:MS = 22$: GOSUB 20:22S = MS 25 IF. IO = 1 THEN MS = “O" + MS 
Pom's n° 8 
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26 RETURN = 21 + 1: IF C2$ = “."* THEN Z1 = 
29 REM 21 - 1: GOTO 58 
“» ADDITION CEE SS C2 = VAL (CC2$): IF LEN (M$) = Z1 TH 
EN C2 = C2 + VAL ( LEFTS (MS,1)) 
30 Z1 = O0:Z = O:MS = “":L = LEN (Z1$):M :MS = MIDS (MS,2) 
185 = 21$:M2$ = 222$: IF LEN (225) S6 C1$ = MIDS (CM1S,L - Z + 1,1):C1 = V 
> L THEN L = LEN (22$):M1S = 22 AL CC1$):C1 = C1 + 20 * (C2 > C1) 
S:M2$ = 7215 CS = STRS (C1 - C2):MS = CS + M 
32 FOR I = L TO 1 STEP - 1:Z = Z + 1:Z $ 
1 = 21 + 1:C1$S = MIDS (M1S,I,1): 58 NEXT :MS = LEFTS (M$, LEN (MS) - 2) 
IF C1$S = “." THEN 21 = Z1 - 1: G + "." + RIGHTS (MS,2): IF L > Z 
OTO 42 AND LEN (MS) = Z THEN MS = LEF 
34 IF Z > LEN (M2$) THEN C2$ = ““: GOT TS (M1S,L - Z) + M$: GOTO 60 
O0 38 S9 IF L > Z THEN GOSUB 66 
36 C2$ = MIDS (M2$S, LEN (M2$) - Z + 1,1 60 IF LEFTS (MS$,1) = "“O" AND LEFTS (M 
) 8,2) < > “O." THEN MS = MIDS cM 
38 CS = STRS ( VAL (C1$) + VAL (C2S)): $,2): GOTO 60 
IF LEN (MS) < Z1 THEN MS = CS + 62 IF M1S = 22S AND Z1S < > Z2S THEN M 
MS: GOTO 42 $ = “-" + MS 
40 CS = STRS € VAL (CS) + VAL € LEFTS 64 RETURN 
(M$S,1))):MS = CS + MIDS (MS,2) 66 C1 = VAL ( MIDS (M1S,L - Z,1)):C2 = 
42 NEXT :M$ = LEFTS (MS, LEN (MS) - 2) VAL C LEFTS (M$,1)):C = C1 + 20 
+ "," + RIGHTS (MS,2): RETURN # (C2 > C1) - C2:Z = Z + 1:MS = 
43  REM STRS (CC) + MIDS (M$S,2): IF 2 = L 
***x SOUSTRACTION ##x THEN RETURN 
68 IF C < 10 THEN M$ = LEFTS (M1S,L - 
50 Z = 0:21 = O:MS = “":L = LEN (2Z1S):M 2) + M$: RETURN 
15 = 21$:M2$S = 22$: IF LEN (215) 70 GOTO 66 
< > LEN (225) OR VAL (218) « 739  REM 
> VAL (22$) OR Z1$ = Z2$S THEN 5 ### AFFICHAGE ##» 
3 
S1 FOR I = 1 TO L: IF VAL ( MIDS (225$, 80 Z = 1:M$ = LEFTS (MS, LEN (MS) - 3) 
1,1) > VAL € MIDS (Z1S,1,1)) TH + "," + RIGHTS (M$S,2):SS = ‘“"e I 
EN M1$ = Z2$:M2S = Z1$:I1 = L F LEFTS (MS,1) = “-" THEN Ss = " 
52 NEXT : GOTO 54 -"IMS = MIDS (MS,2) 
S3 IF VAL (Z2$) > VAL (Z1S) OR LEN « 82 IF LEN (M$) < = 2 + 4 »* 2 THEN Ms 
Z2$) > L THEN L = LEN (Z2S):M1s = S$ + M$: RETURN 
= 22$:M2$ = 215 84 MS = LEFTS CMS, LEN (MS) - 2 - 4 » 
S4 FOR I = LEN (M2$) TG 1 STEP - 1:C2 ) + "." + RIGHTS (MS,2 + 4 * 2): 
S = MIDS (M2$,1,1):2Z = Z + 1:71 Z = Z + 1: GOTO 82 





Bibliographie 


Pratique de l’Apple II, de H. 
Lilen, aux Editions Radio - 192 
pages, 80 FF. 


Comme de nombreux autres ouvra- 
ges de H. Lilen, il s’agit ici d’un ou- 
vrage clair à la présentation soignée. 
Il #est déjà sorti depuis quelque 
temps, mais nous n'avions pas en- 
core eu l’occasion de le consulter. 
C’est un bon livre de démarrage, 
pour ceux qui débutent complète- 
ment. Malheureusement, l'Apple //e 
n’est pas encore couvert par cet ou- 
vrage : cela ne devrait rien changer 
pour l’Applesoft; par contre, la ges- 
tion du clavier est assez différente. 


Eléments de programmation, de 
Jacques Schmit, aux Editions Evrol- 
les - 344 pages, 148 FF. 


Ce pavé, à l'aide de nombreux 
exemples en BASIC, enseigne le dé- 
coupement d'un programme à écrire 
en tâches, montre comment on par- 
vient à la construction d’organigram- 


mes. La réalisation par étapes d’un 
programme de comptabilité est un 
exemple approfondi présenté dans 
les 90 dernières pages. 


Jde reproche à ce livre, comme à 
d’autres d’ailleurs, de ne pas prévenir 
le lecteur qu'il y a plusieurs BASICSs : 
nous ne savons même pas que le 
BASIC Microsoft est celui utilisé par 
cet ouvrage. Il vous faudra donc 
adapter les programmes pour les 
transcrire en Applesoft. 


Clefs pour l’Apple II, de Nicole 
Bréaud-Pouliquen, aux Editions du 
PSI - 143 pages, 92 FF. 


Avec le “BASIC Applesoft - Manuel 
de référence alphabétique” de Paul 
Merry édité par Mnémodyne et ”Visi- 
calc sur Apple” d'Hervé Thiriez aux 
Editions du PSI, ce livre est pour moi 
le troisième must” de tout Appleo- 
mane. 


14 


Alexandre Duback 


Comme le souligne sa publicité, il 
s'agit d'un ouvrage destiné à rester 
près de votre Apple: il répertorie 
tous les mots-clés du BASIC, du mo- 
niteur et du DOS, la syntaxe de leur 
utilisation et les messages d'erreur. Il 
vous fournit plein de bonnes adres- 
ses, et offre en prime de nombreux 
trucs et astuces, dont plusieurs sont 
déjà connus des lecteurs assidus de 
Pom's. 


Je n’ai que deux remarques à faire: 
j'aurais aussi aimé voir un classement 
des erreurs par numéro, et non seu- 
lement par ordre alphabétique. Enfin, 
mes veux auraient apprécié des sor- 
ties sur imprimante réalisées en qua- 
lité courrier, ou pour le moins avec 
un ruban neuf … 


En conclusion, il s'agit d'un excellent 
ouvrage que je recommande chaude- 
ment à tous. ceux chez qui l'Apple est 
autre chose qu'un simple élément 
décoratif. 
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Recherche de codes binaires 


Il m'arrive souvent d’avoir à analyser 
un programme en langage machine 
que je n’ai pas écrit Pour pouvoir 
s'y retrouver, il est nécessaire de re- 
pérer des codes connus. Ainsi, le 
code ”’20 58 FC” (HOME en Basic) 
est un bon repère, car on sait qu’à 
ce moment l'écran est effacé. Le 


code ”’20” (JSR) n'est pas important 
en soi, mais 58 FC” (adresse moni- 
teur $FC58) doit être repéré. 


Il est très long et fatigant d’éplucher 
le programme pour retrouver des 
codes binaires, alors qu'il suffit de 
laisser l'ordinateur travailler tout seul. 


Guido Bettiol 


Le programme que j'ai écrit à cet 
effet et que je vous propose ici effec- 
tue la recherche d’un ou de deux 
octets, et imprime éventuellement le 
résultat de sa recherche. 

Il est possible de fractionner la re- 
cherche en choisissant les adresses 
de début et de fin de celle-ci. 


sn 5 440 POKE 4,AH 
Recherche de codes binaires M Ci due 
460 POKE 5S,AL 
1LIST 470 VTAB 11: HTAB 20: PRINT “IMPRIMANTE 
? CO/N) “:: GET Z2S: PRINT ZZsS 
10 REM 480 IF ZZ$S = “O" THEN POKE - 16240,17 
= RECHERCHE DE CODES BINAIRES = : PR# 1: PRINT : PRINT : PRINT "“C 
*»*x GUIDO B. BETTIOL - NOV 82 #+ ODE: S":X1S: PRINT 
500 VTAB 13: PRINT “ADRESSES:": PRINT 
50 REM *+* ON CHARGE LA SUBROUTINE #*» 600 CALL 768 
60 PRINT CHRS (4)'"BLOAD OBJ.BCHERCHE" 830 PR# O 
100 TEXT : HOME 900 HTAB 1: VTAB 23: PRINT "PRESSEZ UNE 
110 PRINT ‘“*=#*#* RECHERCHE DE CODES BIN TOUCHE POUR CONTINUER “:: GET XX 
AIRES #rm-" $: GOTO 100 
115 REM 1000 REM 
#* ADRESSE DE DEPART #** #**+ CONVERSION HEX-->DEC ## 
120 VTAB 4: CALL - 868: INPUT "ADRESSE | 1020 X = © 
DE DEPART: S":XS 1030 IF XS = ““ THEN CALL - 1059: RET 
130  GOSUB 1000 URN 
135 IF XS = "" THEN 120 1040 A1S = LEFTS (XS,1) 
140 AH = INT (X / 256) 1050 X1 = ASC (A19) 
150 POKE 1,AH 1060 X1 = X1 - 48 
160 AL = X - AH * 256 1070 IF Xi > 9 THEN X1 = X1 - 7 
170 POKE O,AL 1080 IF X1 < O OR X1 > 15 THEN CaALL - 
200 REM 1053:XS = “": GOTO 1000 
#** ADRESSE DE FIN #*= 1090 X = X »* 16 + X1 
210 VTAB 5: CALL - 868: INPUT "ADRESSE | 1100 IF LEN (XS) = 1 THEN RETURN 
FINALE: S":XxS 1110 XS = RIGHTS (XS, LEN (XS) - 1) 
220 GOSUB 1000 1120 GOTO 1030 
230 IF XS = ““ THEN 210 
240 AH = INT (X / 256) 
250 POKE 3,AH 
2 _ L, 1 
A de à Programme B.CHERCHE 
300  REM 
*+ CODE RECHERCHE ## *300.35SA 
310 VTAB 7: PRINT “CODE RECHERCHE" 
320 VTAB 9 
330 PRINT “1 OU 2 BYTES? (1/2) “:: GET 9300- AO 
2S: PRINT 25 0308- FO 
340 IF 25 = “1" THEN POKE 6,0: GOTO 40 0310- AS 
5 0318- O0 
350 IF Z$ = “2" THEN POKE 6,128: GOTO 0320- DO 
405 
360 CALL - 1059: GOTO 320 one 
405 VTAB 11: CALL - 868 0330- 20 
410 INPUT "CODE: S":XxS 0338- 98 
412 X15 = XS 0340- 98 
415 GOSUB 1000 0348- FD 
420 IF XS = “"“ THEN 405 0350- 07 
425 .. 1“ THEN POKE 4,X: GOTO 47 0358- 4C 
430 AH = INT (X / 256) 
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Formation continue à la micro-informatique 





Assembleur, COBOL, FORTRAN. 


micro-ordinateurs… 


m Stage de 2 jours 

bases de données. 

Comment utiliser les progiciels : 
e bases de données 

e manipulateurs de nombres 

et générateurs de tableaux 

e générateurs d'états imprimés 
Application pratique 

{un 48 K + un lecteur de 


disquettes pour deux participants). 


Après ce stage, on peut générer, 
à partir de progiciels, un 
programme totalement adapté 

à Son application en moins 
d'une journée de travail. 

Ce stage nécessite de connaître 
la manipulation de l'APPLE II, 
ou d'avoir suivi au minimum 

la journée d'initiation. 

Dates 27-28 juin 


29-30 août 
Prix 2192 Fht. 


PHOTO GUNHILD BULL 
Tous nos informaticiens viennent de l'informatique traditionnelle, et en maîtrisent totalement les langages classiques : 


Ils utilisent leur professionnalisme et les méthodes de l'informatique pour réaliser 
des applications professionnelles en micro-informatique. Nous vendons des micro-ordinateurs sans programme. 
Nous vendons aussi des micro-ordinateurs avec les programmes. Il s'agit de programmes réalisés par la société KA, 
dont nous garantissons la qualité et le bon fonctionnement. 
Nos formateurs enseignent l'informatique. L'enseignement de la micro-informatique nécessite des formateurs pro- 
fessionnels, suffisamment de matériel pour que chacun puisse pratiquer, un support de cours couvrant non 
seulement l'enseignement diffusé, mais permettant au participant de s’auto-former après le stage. Nous avons déjà 
accueilli de nombreux stagiaires, d'horizons et de centres d'intérêts divers : chefs d'entreprise, universitaires, profes- 
sions libérales, informaticiens, musiciens compositeurs, retraités, cadres de grandes entreprises, revendeurs de 


Nous proposons 5 possibilités : 


m Stage de 1 semaine 
de programmation BASIC. 
Il débute par la journée 
d'initiation. 

Le stage permet 
d'assimiler la logique 

de programmation 

et de l'appliquer 

{un micro-système 48 K 
pour 2 participants). 

En fin de stage, on sait 
établir un programme 

de gestion de fichier avec 
consultation en temps réel. 
Ce stage ne nécessite pas 
de connaissance de départ 
en informatique 


Dates 

du 20 au 24 juin 
du 18 au 22 juillet 
du 22 au 26 août 
Prix 4245 Fht. 


& Stage 3 jours disquettes. 
Consacré à l'organisation, 

à la programmätion et à 
l'exploitation de fichiers 

sur disquettes magnétiques, 
à travers l'étude du Disk 
Operating System APPLE Il. 
Travaux pratiques sur 
micro-systèmes (un 48 K + un 
lecteur de disquettes 

pour deux participants). 

Ce stage nécessite : 

e soit d'avoir suivi le stage 

de 1 semaine de programmation 
au préalable ; 

e Soit d'avoir une bonne 
connaissance théorique 

et une sérieuse pratique 

de BASIC de l'APPLE II. 


Dates du 25 au 27 juillet 
du 17 au 19 octobre 
Prix 3378 Fht. 


& Journées de sensibilisation 
et stages de formation 

à Paris et en Province. 

Ils sont organisés 

à la demande 

e d'une instance régionale 
telle, par exemple, 

une Chambre de Commerce; 
e d'un organisme 

de formation 

dans le cadre d'un cycle 
plus vaste de formation; 

e d’une entreprise. 

La société KA 

installe le matériel 

pour la durée 

de la formation, 

assure la formation 

et fournit 

les supports de cours. 


& Journée d'initiation - Dates : 20 juin, 18 juillet, 22 aôut - Prix 773 Fh.t. 


Le nombre de places pour chaque stage est strictement limité, à la fois pour la qualité de l'enseignement et parles contraintes du matériel. 
Deux animateurs sont présents pour aider les participants à la réalisation de leurs programmes. 
Un support de cours très complet est remis à chaque participant. 
Pour la journée d'initiation et pour les stages, les déjeuners sont pris en commun et compris. 


à DEN 


ETS 
AS 









AM Le calendrier 83 est disponible. 
*"L'informatique douce" est une marque déposée de la société KA 


Le langage interprété PILOT (Pro- 
grammed Inquiry, Learning Or Tea- 
ching), développé en 1968 a l’uni- 
versisté de San Francisco, est destiné 
à être employé à la réalisation de 
programmes d'EAO (Enseignement 
Assisté par Ordinateur), appelés 
leçons”. Schématiquement, il s’agit 
de faire trois choses essentielles : in- 
former l'élève, lire sa réponse à des 
questions et sauter à un endroit ou à 
un autre de la leçon selon cette ré- 
ponse. 


En 1980, Apple Computer Inc. a pu- 
blié le système Apple PILOT, 
comprenant un PILOT basé sur la 
dernière version du langage, le 
Common PILOT, et quatre éditeurs : 


. l'éditeur de texte, pour écrire les 
programmes; 

. l'éditeur de dessins, éventuellement 
appelés par le programme: 

. le générateur de caractères. PILOT 
écrit en effet sur la page graphique 
haute résolution, ce qui nécessite des 
caractères générés par SOFT et non 
par HARD comme pour la page 
texte; 

. l'éditeur de sons et d’airs musicaux 
que le programme peut appeler. 


Le tout a été développé grâce au 
système Pascal. Toutefois, pour utili- 
ser Apple PILOT, ni la connaissance 
du langage Pascal, ni la carte langage 
ne sont nécessaires, bien que les 
possesseurs du Pascal Apple puis- 
sent, avec le système Pascal, lire les 
catalogues des disquettes PILOT et 
éditer directement les textes écrits en 
PILOT. 


Puis, l’année dernière, Apple a pu- 
blié le système SuperPILOT, version 
améliorée du précédent : des instruc- 
tions ont été ajoutées au langage, les 
éditeurs sont plus performants et plus 
rapides, mais la carte langage est 
cette fois indispensable, afin d'aug- 
menter la capacité de mémoire vive 
du système. 


Le langage PILOT 


D'un point de vue purement infor- 
matique, PILOT est un très mauvais 
langage, qui développe de vilaines 
habitudes chez le programmeur. Mais 
il a acquis une très grande popularité 
car, ne possédant qu’une dizaine de 
commandes principales, il est très fa- 
cile à apprendre pour le non-infor- 
maticien, et il est spécialement étudié 
pour les applications à l’enseigne- 
ment. Jugez-en vous-même par 
l'étude comparative de ses instruc- 
tions avec BASIC ou Pascal (voir 
plus bas). 


Les principales commandes du lan- 
gage sont Remark, Type, Accept, 
Match, Jump, Use, End, Link, Di- 
mension, Compute... Apple PILOT 
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PILOT et SuperPILOT 


au banc d’essai 


et Apple SuperPILOT possèdent de 
plus des instructions graphiques, so- 
nores et de gestion de fichiers, dont 
la possibilité d'exécuter des dessins et 
des airs de musique créés par les édi- 
teurs et stockés sur disque. 


Une instruction PILOT comprend 
une étiquette éventuelle, l’initiale ou 
les deux premières lettres de la 
commande, un ‘’’modificateur”’ éven- 
tuel qui change légèrement le sens 
de la commande (eXact ou Single 
pour Accept, Jump pour Match...), 


Olivier Herz 


un ”conditionneur”’ éventuel qui éta- 
blit un test en rapport avec la 
commande (Yes, No, Error... ou une 
expression comme (N > 13), le 
symbole ”:” et enfin l’objet de l’ins- 
truction dont la syntaxe dépend de 
cette dernière. 


Le petit programme ci-dessous écrit 
en SuperPILOT vous permettra de 
comprendre sa syntaxe. Afin de vous 
donner les mêmes chances qu’à 
Champollion, je vous fournis aussi la 
traduction en BASIC et en Pascal. 


Programme en SuperPILOT Programme en BASIC Applesoft 


C'EST UN EXEMPLE 
ENTREZ VOTRE NOM 


10 REM C'EST UN EXEMPLE 
20 PRINT "ENTREZ VOTRE NO*" 


$N$ 30 INPUT N$ 


BONJOUR, $N$ 
OLIVIER!HERZ 
: DEBUT 
A=1982+1 
: POM'S VOUS ADRESSE SES 
VOEUX POUR #4 
#DEBUT 
U JEU 


40 PRINT "BONJOUR, ":N$ 

4O BON=(NS="OLIVIER" OR N$="HERZ") 

50 IF BON THEN 100 

60 A=1982+1 

70 PRINT "POM'S VOUS ADRESSE SES 
VOEUX POUR ":A 

100 GOSUB 1000 


Programme en Pascal 


VAR NOM:STRING: 
ANNEE : INTEGER: 
BON: BOCLEAN ; 
BEGIN 
(#C'EST UN EXEMDLE#) : 


WRITELN ('ENTREZ VOTRE NOW’); 


READLN (NOM) : 
WRITELN (BONJOUR, ?, NO“); 
BON:= (NOM=" OLIVIER’) OR 
IF NOT BON THEN 
BEGIN 

ANNEE :=1982+1 : 


MRITELN (’POM'°S VOUS ADRESS 


END: 
JEU: 
END: 


Li 
\OM=" HERZ” ): 


E SES VIEUX POUR ?, ANNEE); 
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Fonctionnement du sys- 
tème PILOT 


Pour créer des leçons, l'enseignant a 
besoin de deux drives, le premier 
contenant la disquette du système 
PILOT et le second celle où les 
leçons seront écrites. Le système 
boote sur un menu qui offre la possi- 
bilité d'utiliser l’un des quatre édi- 
teurs, d’initialiser ou de recopier une 
disquette de leçons. Notons que, 
dans le cas de la copie, il est plus ra- 
pide d'utiliser un programme de 
copie tel que COPYA, car les dis- 
quettes, étant compatibles avec le 
Pascal, sont formatées en 16 sec- 
teurs. Toutefois, la disquette système 
est protégée contre la copie, mais un 
second exemplaire (BACKUP) est 
fourni avec elle. Une excellente dis- 
quette de leçons de démonstration 
est jointe également. 


Une fois la leçon écrite, l'élève peut 
l'étudier avec un seul drive, car la 
disquette de leçons boote directe- 
ment sur un programme HELLO qui 
affiche les titres des leçons ou qui ap- 
pelle la leçon (ce peut être la leçon 
elle-même). Signalons enfin la possi- 
bilité intéressante pour le professeur 
de tester la leçon en la faisant mar- 
cher, avec des possibilités de déver- 
minage (debugging) étendues car 
PILOT esi comme BASIC un inter- 
préteur interactif. 


Un mot à propos de la documenta- 
tion: comme pour tout produit 
Apple, elle est très bien fournie et 
très claire, sous la forme d’un ma- 
nuel du langage (250 pages) et d’un 
manuel des éditeurs (140 pages), 
tous deux en anglais A quand la 
version française ? 


Les éditeurs 


L'éditeur de texte reprend en partie 
l'éditeur du Pascal Apple, avec quel- 
ques légères modifications : il y a 40 
colonnes au lieu de 80, inversion des 
rôles de CTRL-C et ESC et enfin on 
peut obtenir les minuscules et majus- 
cules, ces dernières étant indiquées 
en mode INVERSE, grâce aux tou- 
ches CTRL-A et CTRL-Z. 


Le générateur de caractères est iden- 
tique à celui de DOS Toolkit, écrit 
en Applesoft. Il permet de définir une 
police de caractères, à la manière du 
programme CRECAR de Guy Ma- 
thieu publié dans ce numéro de 
Pom's. 


L'éditeur de dessins possède de très 
puissantes commandes : il permet de 
tracer des ellipses et des rectangles, 
de remplir n'importe quelle surface. 
Les dessins peuvent être utilisés 
depuis un programme PILOT, soit en 
étant redessinés à la manière dont ils 





ont été crées, soit en étant chargés 
directement, procédé beaucoup plus 
rapide, mais aussi plus gourmand en 
place sur le disque. La seule ombre 
au tableau” de cet éditeur est qu’à 
chaque fois que l’on efface la der- 
nière commande entrée, le dessin 
doit se redessiner entièrement, ce qui 
peut être fort long (cet inconvénient 
disparait avec le SuperPILOT). 


L'éditeur de sons quant à lui permet 
d'écrire des petits morceaux musi- 
caux monophoniques, quelques 
effets spéciaux étant permis. Comme 
tout éditeur de sons assez simple 
pour Apple, il est très malcommode 
d'emploi. 


Différences entre PILOT 
et SuperPILOT 


En ce qui concerne le langage, on 
trouve dans SuperPILOT une plus 
grande variété dans le contrôle du 
texte à l'écran: simple ou double 
taille, couleurs variées pour le texte 
et le fond, caractères épais ou 
minces, combinaisons logiques entre 
les caractères et l'écran, possibilité 
d'animer des dessins en utilisant des 
polices de caractères spéciales, etc. 
On peut aussi noter la possibilité 
d'enregistrer automatiquement sur 
disque les progrès réalisés par les 
élèves, un mouvement relatif -genre 
tortue-dans les commandes graphi- 
ques, et quelques autres améliora- 
tions de moindre importance (dont la 
possibilité de commander des péri- 
phériques audio-visuels tels que les 


Messages de la rédaction 


Hard Copy Seikosha: le pro- 
gramme de hard copy présenté par 
Olivier Herz dans le numéro 7 de 
Pom'’s à été écrit pour la GP80M. Il 
ne fonctionne pas pour la GP100. 
Un lecteur peut-il nous envoyer 
l'adaptation pour la GP100, afin que 
nous puissions la publier ? En effet, 
nous n'avons pas ce modèle sous la 
main. 


Gestion de marques : nous avions 
complètement oublié, quand nous 
vous avons proposé l’article de Gé- 
rard Michel sur la gestion de mas- 
ques, que celui-ci utilisait des mas- 
ques. Îl est en effet indispensable 
pour le faire fonctionner d’avoir la 
disquette d'accompagnement du nu- 
méro 7 où l'on peut les trouver. 
C'est de la vente forcée involontaire ! 
Nous avons hélas constaté ce pro- 
blème trop tard et n'avons pas assez 
de place pour vous donner les mas- 
ques. Il vous reste deux solutions en 
ce moment : acheter la disquette du 
numéro 7 où modifier le programme 
Gesmask pour qu'il fonctionne sans 
masque … Pardon ! 


REIMS ENNRESMAEETENS 


vidéo-disques). Et surtout, les pro- 
grammes tournent maintenant jus- 
qu’à 10 fois plus vite, ce qui était un 
progrès rendu indispensable par la 
lenteur du PILOT original. 


L'éditeur graphique quant à lui per- 
met d'insérer ou détruire un ordre 
graphique n'importe où dans le dé- 
roulement du dessin, et non plus 
seulement à la fin. On peut aussi re- 
dessiner un dessin à des fins de véri- 
fication, remettre en place les 
commandes qui avaient été effacées, 
changer l’origine du dessin ou utiliser 
comme fond un autre dessin. De 
plus, cet éditeur est maintenant plu- 
sieurs fois plus rapide dans le tracé 
d'un dessin. 


Les fichiers fournis par ces éditeurs 
sont pratiquement compatibles d’un 
système à l’autre; il y a peu de modi- 
fications à apporter pour faire tourner 
un programme PILOT en SuperPl- 
LOT. 


Signalons encore qu’on peut avec 
SuperPILOT initialiser une disquette 
de leçons non bootable afin de dis- 
poser de plus de place; il faut alors 
deux drives. On peut en outre ne re- 
copier d’une disquette à l’autre que 
les leçons voulues et non obligatoire- 
ment la disquette toute entière. 


La présence de la carte langage aug- 
mente la capacité mémoire, ce qui 
était bien utile, étant donnée la place 
prise par le système. 


Notons enfin qu'avec tout cela les 
deux manuels ont grossi d’environ 
un quart et que la disquette de 
leçons de démonstration est un peu 
modifiée; signalons aussi la présence 
de deux disquettes de leçons Super 
Co-PILOT 1 et 2 qui constituent un 
excellent cours de SuperPILOT. Le 
petit exemple ci-dessus doit vous 
permettre d'apprécier l'apport de ce 
langage à l'EAO. 


Conclusion 


PILOT, et surtout SuperPILOT, 
constituent une excellente application 
à l'Apple du langage PILOT, grâce 
aux possibilités audio-visuelles extré- 
mement performantes et très faciles à 
mettre en oeuvre, dont le seul gros 
défaut, atténué dans le SuperPILOT, 
est la lenteur. 


Les programmes ne résident pas en 
mémoire, mais sont lus sur le disque 
par petits morceaux, ce qui les rend 
extensibles à l’envi. 


Nous conseillons fortement SuperPl- 
LOT à tous ceux qui désirent réaliser 
simplement et rapidement de longs 
programmes d'EAO ou des program- 
mes, interactifs ou non, illustrant les 
capacités graphiques et musicales de 
l'Apple. 
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Accélérez vos programmes 


Afin d'accélérer l'exécution des pro- 
grammes en BASIC, vous pouvez 
appliquer les recettes suivantes. 


1 - Les variables 


Utiliser des variables au lieu de cons- 
tantes. 


2 - Structurer 
gramme 


le pro- 


Mettre les instructions d'autant plus 
haut dans le programme qu'elles ser- 
vent souvent. Ainsi, la structure ‘’op- 
timale” d'un programme en BASIC 
est la suivante : 


1. SUBROUTINES 
D'autant plus haut” qu’elles servent 
fréquemment 


2. MENU PRINCIPAL 
Principaux choix de l'utilisateur 


3. CORPS DU PROGRAMME 


4. INITIALISATION 
Initialisation, lecture des tables de ré- 
férence 


Bien entendu, le programme débute 
par un GOTO vers la phase d'initiali- 
sation, laquelle termine par un 
GOTO vers le menu principal. 


3 - Dimensionnement 
dynamique 


Dimensionner les tableaux juste à la 
taille requise, par exemple avec des 
instructions telles que DIM A(L), ou 
DIM A(L+ 50) s’il y a par exemple L 
éléments dans la table et que l’on 
n'envisage pas d’en créer plus de 50 
dans une session de travail. Ainsi, 
prenant moins de place en mémoire, 
votre programme tournera plus vite. 


4 - Isoler les REMs 


Prévoir de mettre les REMs sur des 
instructions séparées non adressées 
par des GOTOs ou GOSUBs. Il sera 
alors possible de les enlever totale- 
ment de la version exécutable du 
programme. 


Si l'on tient à mettre des REMSs dans 
des lignes, il faut les mettre en fin de 
ligne, car tout ce qui suit le REM est 
pris comme remarque (y compris des 
7 :° de séparation). 






MAINTENANT MON 
PROGRAMME EST 
OPTIMISÉ ! 





5 - Vive les GOSUBs ! 


Utiliser les GOSUBSs chaque fois 
qu'un gros segment de programme 
devrait être reproduit en deux exem- 
plaires ou plus. 


6 - Le 
fait. 


Tirer profit du nettoyage rapide de la 
mémoire. Voir à ce titre ‘Faites le 


ménage, vite 


en BASIC 


Hervé Thiriez 


ménage dans la mémoire” (Pom's 2) 
et ‘Contrôlez le nettoyage mémoire” 
(Pom's 3). 


7 - Compaction du pro- 
gramme 


Une fois le programme mis au point 
et testé, obtenez une version exécu- 
table compactée (voir Courrier des 
Lecteurs de ce numéro, lettre du Dr. 
Rozoy). Si vous possédez un compi- 
lateur, cela vous permettra évidem- 
ment d'accélérer sensiblement l'exé- 
cution du programme. 


8 - Overlay dynamique 


Si votre programme est vraiment 
trop long malgré tout cela, mettez en 
place une structure d’overlay dyna- 
mique (Pom's 1). 


9 - Tableaux numériques 


Il est assez facile d'écrire un pro- 
gramme en assembleur pour effec- 
tuer le STORE et le RECALL rapides 
de tableaux numériques sur dis- 
quette. 


Attention à la 
renumérotation ! 


Si vous utilisez RENUMBER pour re- 
numéroter vos programmes et 
compacter les programmes en numé- 
rotant par exemple avec un pas de 
1, vérifiez tout d’abord que votre RE- 
NUMBER fonctionne bien. 


Essayez de renuméroter le pro- 
gramme à une instruction: 20 A= 
20x20 

Si vous obtenez: 10 A= 20x10, 
votre RENUMBER a besoin de la ré- 
paration que nous expliquons dans le 
Pom's 2. 





Nous ne pouvions pas ignorer l’arri- 
vée sur le marché français d'un ma- 
tériel compatible Apple, d'autant qu’il 
apporte un certain nombre d'’élé- 
ments nouveaux. 


De prime abord, nous découvrons 
un matériel à la présentation profes- 
sionnelle, sans rapport avec celle de 
notre sympathique Apple II qui, par 
comparaison, donne l'impression 
d’être la 2CV de la micro-informati- 
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Le Basis 108 à l’essai 


que. Le clavier du Basis 108 
comporte 100 touches (52 sur l’Ap- 
ple Il) dont 9 touches de déplace- 
ment, un bloc de calcul et 15 tou- 
ches de fonction. Bien entendu, les 
minuscules sont aussi disponibles. Le 
clavier est séparé du bloc principal 
comportant deux lecteurs de disquet- 


BÉRÉSESERESRAT GERS SG ITNNNINEZE 


Hervé Thiriez 


tes, ce qui est la norme des matériels 
professionnels. 


Caractéristiques techni- 
ques 


Pour commencer, nous trouvons 
dans la carte mère deux micropro- 
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cesseurs, un 6502 et un Z80. D'’ori- 
gine, la RAM est de 128K, le sys- 
tème comportant en outre un 
moniteur ROM de 2K et cinq sup- 
ports pour ROM ou EPROM de 2K, 
pour un total de 10K de ROM utilisa- 
teur. 


Au niveau du graphique, beaucoup 

de possibilités sympathiques sont of- 

fertes : 

© texte en 40x24 ou 80x24. 
mode HGR mixte : 280x160 avec 
4 lignes de texte (40 ou 80 colon- 
nes) 

e mode HGR complet: 280x192 
avec 6 couleurs 


Il existe trois sorties vidéo distinctes : 
N/B, composite couleur et RGB. 


Au niveau des caractères, il est très 
agréable de pouvoir, avec le Basis 
108, basculer de 40 à 80 colonnes, 
et disposer de quatre polices de ca- 
ractères à l'écran, changeables à vo- 
lonté. 


En standard, on a une sortie parallèle 
8 bits, une interface E/S RS 232C, 6 
prises compatibles Apple Il pour 
connexion de périphériques, une 
prise vidéo RGB et composée (PAL 
ou NSTC), … 


Enfin, l’alimentation est plus puis- 
sante que sur l’Apple, ce qui devrait 
permettre d'éviter les problèmes que 
l’on a quand on charge trop l'Apple : 
il y a huit slots mais, selon le type de 
carte que l’on y met, on peut se re- 
trouver incapable de booter avec 
trois ou quatre slots occupés. - Nous 
avons déjà dû dans certains cas aug- 
menter la puissance de nos Apples 
pour nous en sortir. 


Démarrage 


Pour des raisons de copyright, le 
Basis 108 n'est pas livré avec le 
Basic, le Pascal ou le CP/M 2.2. Par 
contre, il est aisé, en suivant les ins- 
tructions fournies avec le matériel, de 
constituer les disquettes permettant 
de booter en Basic Integer, en Ap- 
plesoft ou en Pascal, le tout en 40 
ou 80 colonnes. Pour récupérer les 
Basics Integer ou Applesoft, il suffit 
de disposer de la disquette Basics (li- 
vrée avec tout contrôleur). Le boot 
Pascal est créé à partir de la dis- 
quette Apple 1 livrée avec le Pascal. 
Les instructions données par BMI 
pour réaliser ces disquettes de boot 
sont très claires. 


Aspects économiques 


Le Basis 108 tout nu est vendu 
16.480 F HT. En configuration de 
base (hors moniteur), il revient à 


21.341,40 F HT : Basis 108, 1 drive 
avec contrôleur et 1 disquette CP/M 
version 3.0. Le drive sans contrôleur 
est vendu 3.280 F HT. 


Le budget est par conséquent sensi- 
blement plus élevé que celui requis 
par l'acquisition d’un Apple //e. Il est 
vrai qu’on dispose d’un équipement 
compatible CP/M doté d'une présen- 
tation et d’une finition plus profes- 
sionnelles. 


Fabriqué en Allemagne, il est vendu 
depuis peu en France, ce qui ne per- 
met pas encore de tirer de conclu- 
sion sur son pouvoir de pénétration 
du marché, ni sur la qualité du ser- 
vice après-vente. 


Compatibilité Apple II 


Nous avons essayé de nombreux 
programmes sur ce matériel, princi- 
palement avec les systèmes d’exploi- 
tation DOS 5.3 et Pascal. Il n’y a évi- 
demment pas de problème pour faire 
tourner sur le Basis 108 les produits 
CP/M courants tels que Wordstar ou 
Calcstar. 


Nous avons commencé par avoir 
exactement les mêmes difficultés que 
lors de nos débuts avec l'Apple //e : 
on se trompe de touches tout le 
temps, les réflexes de frappe rapide 
sur Apple II Plus ou //e ne convenant 
pas au changement de clavier. Cela 
ne doit pas être gênant une fois que 
l'on s'est accoutumé à ce nouveau 
clavier. 


Avec Applewriter I, nous avons exac: 
tement le même problème que sur 
l'Apple //e: ce logiciel recodant les 
caractères d'écran, les espaces sont 
tous remplacés par une demi-barre 
transversale. C'est désagréable, mais 
n'empêche pas de travailler. Par 
contre, Applewriter //e ne marche 
pas, ce qui est normal puisque le 
Basis 108 est censé être compatible 
avec l’Apple II Plus et non avec l'Ap- 
ple //e. D’aileurs, Applewriter Il fonc- 
tionne à merveille et reconnaît les 
minuscules. 


Pour relancer le programme COPYA 
sans avoir à le recharger, faire RUN 


Ne pas lancer P.L.E. (Program Line 
Editor) quand TRACE est actif; faire 
d’abord NOTRACE. En effet, dans le 
cas contraire, lors de l'appel de PLE, 
le nom de celui-ci sur la disquette 
devient dénaturé avec des caractères 
spéciaux. 


Les tentatives d'initialisation de dis- 
quette après exécution d’Applewriter 
Ï échouent : il faut rebooter avec une 
disquette normale avant de lancer 
une initialisation. 





Le Pascal marche parfaitement en 40 
colonnes; nous n'avons pas eu l’oc- 
casion lors de notre essai de le tester 
en 80 colonnes, mais cela ne pose 
aucun problème selon BMI avec le 
programme de boot adéquat. 


Nous n'avons pas réussi à faire tour- 
ner Multiplan, les programmes de 
boot Apple II Plus et //e de Multiplan 
n'arrivant pas à se faire reconnaître. 
Notre bon vieux Visicalc a, par 
contre, tourné de façon complète- 
ment satisfaisante, mais seulement en 
40 colonnes. Avec quelques surprises 
cependant: il m'a fallu longtemps 
pour découvrir que l’arobase, indis- 
pensable pour la définition des fonc- 
tions, s'obtenait avec la touche 
HOME. 


Nous avons essayé de faire tourner 
GraForth. Le programme  boote 
convenablement et tout se passe ap- 
paremment bien, sauf que toutes les 
minuscules (créées en haute résolu- 
tion) sont absentes, ce qui est 
étrange car les majuscules aussi sont 
obtenues par logiciel sur l'écran 


HGR. 


Conclusion 


Pour celui qui a seulement besoin 
des services que peut rendre un 
Apple II Plus ou //e, il est certain que 
le Basis 108 n'est pas compétitif, son 
prix est trop élevé en comparaison. 


Le Basis 108 est intéressant pour les 
utilisateurs de CP/M, pour ceux qui 
connaissent avec l'Apple des problè- 
mes d'insuffisance de l'alimentation, 
pour ceux qui désirent utiliser un ma- 
tériel plus professionnel (esthétique, 
fiabilité, clavier, possibilités). C'est 
aussi intéressant pour tous ceux qui 
ont des problèmes de vision et ap- 
précieront la possibilité de basculer 
entre 40 et 80 colonnes, ou de choi- 
sir parmi quatre polices à l'écran. À 
condition de bien vouloir payer le 
prix de la différence. 


Depuis notre banc d'essai de l’Ap- 
ple //e, nous avons découvert qu'il 
n'était pas parfaitement compatible 
avec l'Apple II Plus. Certains jeux 
(surtout ceux de Programma Soft- 
ware) ne fonctionnent pas, Applewri- 
ter I marche imparfaitement, … Sur 
l'échelle de la compatibilité Apple II 
Plus, le //e vaut 9/10 et le Basis 108 
environ 8,5/10. 


Nous conseillons par conséquent aux 
futurs acquéreurs de Basis 108 dis- 
posant déjà d’une Appleothèque de 
faire des essais avant l'achat, afin de 
vérifier si leurs programmes préférés 
fonctionnent bien sur ce matériel. 


De toute façon, nous pensons que 
les utilisateurs d'Apple ont à gagner à 
la présence de matériels compatibles. 
Une saine concurrence ne peut avoir 
pour eux que des effets positifs. 
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Création de polices de caractères 


HAIFA (Pom's 5 - erratum en Pom's 
6), ainsi que le DOS ToolKit et d’au- 
tres logiciels, utilise des polices de ca- 
ractères qui fonctionnent sur écran 
graphique haute résolution, enregis- 
trées en RAM et traitées par POKESs 
sur la page graphique. 


Les polices de caractères sont elles- 
mêmes créées par des POKESs dans 
des zones mémoire réservées, selon 
un principe expliqué dans l’article sur 
HAÏIFA. 


Il est plus agréable et plus pratique, 
au lieu de calculer les POKESs en 
question, de créer graphiquement, en 
grande dimension, les caractères 
choisis, surtout si l’on désire créer 
des caractèrs graphiques, des symbo- 
les, … C’est le but atteint par le pro- 
gramme CRECAR, qui permet en 
outre de créer des caractères directe- 
ment par voie numérique, ainsi que 
de les relire. 


L’instruction 5 fournit au programme 
l'adresse de début de la table de ca- 
ractères (il serait évidemment possi- 
ble de l’entrer par INPUT au lance- 
ment du programme). L'adresse 
décimale correspond à la version 
48K de HAIFA. 


Le programme s'exécute ensuite de 
la façon suivante : 


Demande d’un nom de 
police 


Si un nom de police est fourni, cette 
police est chargée en mémoire et 
l'utilisateur est averti du risque de sa 
destruction (de la police, bien en- 
tendu ….). Si l’on a fait RETURN 
sans fournir de nom de police, cela 
signifie que l’on crée une nouvelle 
police. 


Affichage d’un menu 


Suit l'affichage d’un menu donnant 
le choix entre les options : 

e 1- CREER 

e 2-LIRE 

e 0 - ARRETER 

Nous analysons ci-dessous ce qui se 
passe lorsque chacune de ces options 
a été sélectionnée. 


Option CREER 


Un second menu nous donne le 
choix entre les possibilités : 
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e 1 - NUMERIQUE (donc par 
POKESs, comme avec HAIFA) 
e 2 - GRAPHIQUE 


Création numérique 


En cas de création numérique, la sé- 
quence ci-dessous est suivie : 
e Quel caractère ? 

Répondre par un caractère du cla- 








vier. Si ce caractère est précédé 
de ESC, il sera considéré comme 
“minuscule”, avec la définition 
donnée dans l’article sur HAIFA. 

e ue No... (défilement de 1 à 
Fournir la valeur du POKE corres- 
pondant, un nombre de 0 à 255. 

e Après la dernière entrée, tracé du 
résultat sur l’écran 


SROVENEINETEETITIETE 
ÉRÉNRSSINNMENNTEEES 


Guy Mathieu 


e Autre caractère ? 
Si la réponse est positive (RE- 
TURN), nous retournons à la 
question Quel caractère ?”. Dans 
le cas contraire (ESC), retour au 
menu. 


Création graphique 


En cas de création graphique, l’ordre 

des opérations est le suivant : 

e Dessin d’une grille 7*8 

e Un petit carré (créé par SHAPE) 
peut être déplacé sur la grille par 
les flèches droite et gauche. La 
bascule entre déplacement hori- 
zontal et vertical s'effectue en ap- 
puvant, comme pour Visicalc, sur 
la barre d’espacement. 

e ESC met en place un point du ca- 
ractère. Un second ESC sur un 
point déjà tracé efface celui-ci. 

e Quand le dessin du caractère est 
terminé, RETURN. Il y a émission 
d'un BEEP. En cas de RETURN 
par erreur, on peut revenir au 
mode déplacement. Si tout va 
bien, un second RETURN 
confirme la fin du dessin. 


Option LIRE 


e Position verticale (du premier ca- 
ractère à lire) ? Répondre par une 
valeur de 0 à 19. 

e Position horizontale (idem). 

e Caractère ? 

La phrase s'inscrit à partir de la 
position désignée sur l'écran. At- 
tention : quand on va à la ligne, il 
se passe des choses bizarres. 

e RETURN renvoie au menu princi- 


pal. 


Option ARRETER 


e Voulez-vous sauver... 
Réponse négative (ESC) : Au re- 
voir”. 
Si oui (RETURN) : donner le nom 
choisi. Si aucun nom n’est donné 
(RETURN à vide), celui de la po- 
lice lue est utilisé. 

© Enregistrement de la police sur le 
disque sous le nom choisi, puis 
message d’adieu. 


Si l'on sort par mégarde du pro- 
gramme, on peut y revenir par RUN, 
les polices étant stockées par des 
POKESs. 








O  REM 
“xx CREATION DE CARACTERES # xx 
**>* GRAPHIQUES - G MATHIEU *#x 


1 POKE - 16142,0 

2  LOMEM: 17000 

3 HIMEM: 36863 

4 DS = CHRS$ (4): DIM E2(7,8) 

S DD = 36864 

6 TY = 7 

7 MX = 255 

8 POKE - 16142,0 

3 GOTO 10000 

10 REM CREATION 

15 HOME : PRINT “1 - CREATION NUMERIQUE 

16 PRINT : PRINT “2 - CREATION GRAPHIQU 
E" 

17 PRINT : INPUT VOTRE CHOIX ? * 
:CR 

18 IF CR = 2 THEN GOSUB 2000 

13 IF CR = 1 THEN TEXT : HOME 

20 PRINT “QUEL CARACTERE ? “::A = © 

21 GET ZS: PRINT 2$; 

22 IF ASC (Z$S) = 27 THEN A = 32: GOTO 
21 

23 PRINT : IF ASC (ZS) < 32 AND ASC « 
Z$) < > 13 THEN 13 

25 I = ASC (25) - 32 + A 

30 FOR J = O TO TY 

35 IF CR = 2 THEN X = N(J): GOTO 60 

40 PRINT “POSITION ",J + 1:" : *: 

SO INPUT X 
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COURS EN FRANCAIS 
+ APPLESOPT Î- APPLE II ( + Carte APPLESOFT }) 
- APPLE II + 
- APPLE III 


= MOPPE D'ANPICO ( + APPLESOPT en ROX }) 
+ PALSOPT  f- ITT 2020 ( + Carte PALSOFT ) 
+ SILROX  f- SILEX ( de Léanord ) 
( Sur DISQUETTES 5 1/4 Pouces = DOS = DOS 3,3 - Mémoire = 48 K, ) 


1/ COURS 1 ( BASIC ) - En Français 


+ TRES PROGRESSIF - Ne nécessite aucune connaissance préelable en 
informatique, = 

+ Pour débutants et non débutants, TOUT Y EST EXPLIQUÉE. 

+ 20 Leçons - Environ 10 à 12 Heures de cours. 

+ 80 Exercices commentés, expliqués, résolus, exécutés. 

140 Questions notées sur 20, par groupes. - Réponses aux questions, 
GRAPHISKE BASSE et HAUTE RESOLUTION, 

Défilement automatique du Cours avec arrêts et reprises possibles 
en cours de leçon, 

De nombreux exercices peuvent être réexécutés autant de fois que 
vous le souhaitez. Ainsi, vous pouvez obtenir les mêmes résultats 
ou des résultets différents en faisant varier les données d'entrée. 


À LA FIN DE CE COURS, VOUS SAUREZ PROGRAMMER. 
2/ COURS 2 ( BASIC + ) - En Français O 


+ Philosophie générale identique à celle du COURS 1 ( BASIC }), 

+ 25 Leçons - 12 Heures de cours minimum, 

- 120 Exercices commentés, expliqués, résolus, exécutés. 

+ 160 Questions notées sur 20, par groupes - Réponses aux questions, 


de BASIC 









CONTRATS-LOCATION du COURS BASIC pour: 


+ Eteblissements d'Enseignement. 
+ Etablissements de Formation payante, 
+ Centre de Recherches, Laboratoires, Centre d'Essais,..,. 
+ Comité d'Entreprises. 
POSER 


5/ 





PRIX ( T.V.A. comprise }) 


+ COURS 2 ( BASIC + ) 375 FF. 


Prix donnés à titre indicatif, pouvant 
être modifiés sans préavis. 
Les") 





8 Allée BUFFON 
91000 EVRY-COURCOURONNES 







REVENDEURS, 
C O N T A C T E Z - N O U Ss. 
RE 


SS I 


60 AD 
70 P 
89 N 
82 H 
85 LS 
30 V 


31 H 
92e + 
3S T 
100 L 
110 V 
115 V 
120 V 
122 L 
125 X 
130 
135 A 
140 A 
145 
150 
155 
165 
399 
1000 
1001 
1005 
1010 


1020 


F X > MX OR X < O THEN PRINT ‘"VALE 
UR INCORRECTE‘: GOTO 40 
= DD + Is CTY + 1) + J 
OKE AD,X 
EXT 
GR 
= ZS$S!:VT = 10:HT = 10: GOSUB 100 
TAB 23: PRINT ‘AUTRE CARACTERE ? (R 
ET/ESC) ‘“;: GET ZS:Z = ASC (ZsS) 
OME 
F 2 = 13 THEN 18 
EXT : HOME : RETURN 
=  LEN (LS): FOR J = 1 TO L 
1 = INT CVT / 8):V2 = VT - 8 * V1 
V = 8192 + V1 *x 40 + V2 * 128 
H = VV + HT + J - 1 
LS = MIDS (LS,J,1) 
= ASC (LLS) - 32 + A 
FOR I = © TO TY 
1 = VH + I * 1024 
2 = DD + X # CTY + 1) + I 
POKE Al, PEEK (A2) 
NEXT I 
NEXT J 
RETURN 
END 
REM LECTURE 
HOME : VTAB 21 
HGR 
INPUT “POSITION VERTICALE ? “:V 
Ti IF VT < O OR VT > 19 THEN TEX 
T : GOTO 1001 
INPUT “POSITION HORIZONTALE ? ‘“:H 
T: IF HT < O OR HT > 39 THEN TEX 
T : GOTO 1001 
PRINT “CARACTERE ? (RETURN POUR AR 
RETER) "“ 
GET LS: IF ASC (LS) = 27 THEN A = 


32: GOTO 1030 
IF ASC (LS) = 
IF ASC (LS) < 32 THEN 
(37): GOTO 1025 
GOSUB 100 
A = O 
HT = HT + 1: GOTO 1030 
TEXT : HOME : RETURN 
HGR : HCOLOR= 3 
FOR I = 100 TO 160 STEP 10: HPLOT 
1,50 TO 1,120: NEXT 
FOR I = SO TO 120 STEP 10: HPLOT 1 
00,1 TO 160,1: NEXT 
DATA 1,0,4,0,27,36,45,45,54,54, 
638,63,36,0 
FOR I = 1 TO 14: READ V: POKE 3800 
O + I - 1,V: NEXT I 
POKE 232,112: POKE 233,148 
GG = 1: SCALE= 1: ROT= O: POKE - 1 
6142,0 
XA = 10O0:XX = 100:YA 
FOR I = O TO 7:N(I) 
TO 8:E2(I1,J) = O: 
RESTORE 
REM A:ECRIT. 
ROT= O: REM 
XDRAW GG AT XA,YA 
GET 2$:Z = ASC (25) 
IF 2 = 32 THEN ZD% = 1 - 
IF 2 8 THEN XX = XX - 
Y = YY - 10 » (1 - ZD%) 
IF Z = 21 THEN XX = XX + 10 *x ZDx: 
YY = YY + 10 »# C1 - ZD%) 


13 THEN 1050 
VTAB PEEK 


SO:YY = 
O0: FOR J = 0 
NEXT : NEXT 


HR 
: SHAPE 


ZD*% 
10 * 2D%:Y 
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2265 IF Z < > 13 THEN 2275 12060 PRINT ‘DONNEZ LE NOM CHOISI" 


2270 GOSUB 20000 12070 INPUT * VOTRE CHOIX ? ‘“;NPS 
2271 IF FIN = 1 THEN 2340 12075 IF NPS = ““ THEN PRINT “ “: GO 
2272 IF FIN < > 1 THEN 2230 TO 12060 
2275 IF Z = 27 THEN 2400 12080 PRINT DS"BSAVE‘";NPS;",A";DD;",LS3 
2280 IF Z < > 8 AND Z < > 21 AND Z < O0" 
> 32 AND Z < > 13 AND Z < > 27 12100 HOME : VTAB 12: HTAB 12: PRINT “A 
THEN PRINT “ ‘“: GOTO 2230 U REVOIR‘: END 
2230 IF XX < 100 THEN XX = 100 20000 PRINT “ “* 
2300 IF XX > 160 THEN XX = 160 20010 GET Z2$:Z = ASC (2S) 
2310 IF YY < SO THEN YY = SO 20020 IF Z = 13 THEN FIN = 1 
2320 IF YY > 120 THEN YY = 120 20030 RETURN 


2330 XDRAW GG AT XA,YA 
2340 XDRAW GG AT XX,YY 
2350 XA = XX:YA = YY 


2360 IF FIN = 1 THEN 2500 Message aux créateurs de logiciel 
2370 GOTO 2230 s jali d : 
2400 II = (YY - 50) / 10:JJ = CXX - 100) Nous commençons à commercialiser des program 
7 2 mes en plus de la revue Pom's, la rémunération des au- 
PRIOR ESA ne PANNES teurs s’effectuant selon le principe des droits d'auteur. 
1,JJ) = O:NCII) = NCII) - 2 * JJ: 
SCALE= 2: ROT= O: GOTO 2420 Bien entendu, les programmes destinés à ce mode 
2405 SCALE= 2: ROT= O: XDRAW GG AT XX,Y de distribution doivent être des produits finis, autant par la 
Y qualité des programmes que par celle de la documenta- 
2410 GET Z2S:Z = ASC (28) tion et par l’environnement visuel et sonore. 
2420 IF Z = 27 THEN XDRAW GG AT XX,YY: Nous sommes prêts à analyser vos propositions et 
SCALE= 1: GOTO 2230 à vous aider à transformer des idées en produits logiciels. 
2425 SCALE= 1 Envoyez-nous vos contributions ; nous vous aiderons à 


2450 NCII) = NCII) + 2 * JJSE2(CII,JJ) = diffuser ces programmes. 
1 

2480 GOTO 2240 

2500 VTAB 21 





2510 FIN = © EXEMPLE DE FOLICE DE CARACTERES 
2520 RETURN R à : 
9999 END SEMI-GRAPHIQUES 
10000 HOME : PRINT “CREATION/LECTURE": 
PRINT “DE POLICES DE CARACTERES": | — r + Tr 
PRINT “EN HAUTE RESOLUTION" É b+4 
10030 PRINT : PRINT “NOM DE LA POLICE ? 
« L OL | LE LÀ J: (| 
10031 INPUT “C’RETURN’ SI AUCUNE >"; NPS 
10035 IF NPS = “* THEN 10100 BR ne 
10040 PRINT DS“BLOAD";NPS 
10050 VTAB 10: PRINT “ATTENTION, VOUS R £ X > <X? 
ISQUEZ DE DETRUIRE DES CARACTERES LV Lo 
DE LA POLICE UTILISEE" 
10100 PRINT : PRINT : PRINT “VOULEZ-VOU 
S" EXEMPLE DE REALISATION D‘'IMPRIME 
10110 PRINT : PRINT “1 - CREER UN CARAC 
TERE" 


10130 PRINT : PRINT “2 - LIRE UN OU DES 


10150 PRINT : PRINT ‘* CO POUR ARRETE 
R)" 

10180 PRINT : INPUT “ VOTRE CHOIX ? 
“CH 





10190 IF CH © THEN 12000 
10310 IF CH 1 THEN GOSUB 10 6. 806 UE OU CAO BEL OC ET A AU CE ACCRU OCT ES PS 
10320 IF CH 2 THEN GOSUB 1000 

10400 GOTO 10100 


12000 HOME : PRINT ‘VOULEZ-VOUS SAUVER 


“",NPS QUELQUES FIGURES UARIEES 
12010 PRINT “’RETURN’ SI OUI - ‘ESCAPE’ 

SI NON “:; + Æ & # s“h 
12020 GET Z$:Z = ASC (ZS) ur 


12025 PRINT : PRINT 


12030 IF Z = 13 THEN 12045 EXEMPLES DE CARACTERES GRECS 
12035 IF Z = 27 THEN 12100 
12040 GOTO 12020 e Bb Ep Sn à x À 
12045 IF NPS = “* THEN 12060 
12050 PRINT “’RETURN’ POUR GARDER LE NO , 

M, OU BIEN DO“ 0 x po œ Tu 4 X 5 
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Allo, Questel ? 


Pom's 


Nous avons encore eu peu de temps 
pour parler de communication dans 
Pom's. Il s’agit pourtant là d’un sujet 
intéressant, mais nous avons telle- 
ment de choses passionnantes à vous 
faire partager ! Pom'’s a rendu visite à 
la société Euréquip dans laquelle tra- 
vaille Guy Mathieu, que nos lecteurs 
assidus connaissent déjà bien. Nous 
vous parlerons encore de communi- 
cation dans les numéros à venir; cet 
article de présentation joue le rôle 
d’éclaireur … Nous retranscrivons ci- 
dessous les questions posées par 
Pom's et les réponses de Richard 
Haddad, collaborateur de Guy Ma- 
thieu. 


À quoi sert Questel ? 


Questel est un service permettant à 
ses utilisateurs de se relier à de nom- 
breuses bases de données. Nous 
l’'utilisons à de multiples occasions, 
par exemple pour retrouver toutes 
les références à certains vocables ou 
à certains mots-clés dans des publica- 
tions, dans des conférences. On 
pourra ainsi rechercher tout ce qui 
existe dans une base de données et 
fait référence à la fois aux termes 
ergonomie” et  ‘’micro-informati- 
que”. 


Nous l’utilisons aussi pour nous ren- 
seigner sur tel ou tel sujet précis, à 
l'aide d’une des nombreuses bases 
de données gérées par Questel. Il 
existe par exemple trois bases de 
données de l'INPI permettant de se 
renseigner sur des problèmes de bre- 
vets et de brevetabilité. Bien en- 
tendu, l'intérêt de telle ou telle base 
de données dépend essentiellement 
du sérieux avec lequel elle est mise à 
jour, et cela varie d'une base à l’au- 
tre. Ainsi, la base de données Pascal 
(rien à voir avec le langage) contient 
des renseignements pluridisciplinaires 
(sciences physiques et de l'ingénieur, 
chimie pure et appliquée, sciences de 
la Vie et sciences de la Terre) et re- 
çoit 500.000 nouvelles références par 
an. 


Pourquoi Questel ? 


Rien ne nous oblige à utiliser exclusi- 
vement une base de données pré- 
cise. Une fois que nous pouvons re- 
lier notre Apple à l'extérieur, cela 
nous autorise à communiquer avec 
tout serveur avec lequel nous aurions 
ouvert un compte. Questel est un 
serveur (il fournit un service), Prestel 
en est un autre, et ils ne sont pas les 
seuls. 


Ceci dit, il faut investir un certain 
temps pour apprendre à utiliser le 
système du serveur. En outre, pour 


tirer le meilleur parti d’une base de. 


données, il faut en être familier, 
sinon l’on perd du temps pour trou- 
ver les réponses aux questions que 
l’on se pose, et de l’argent puisque la 
facturation dépend du temps de 
connexion. 


Lorsque nous avons décidé d'utiliser 
des services d’information interactifs, 
nous avons analysé ce que propo- 
saient les différents serveurs. Nous 
sommes arrivés à la conclusion que 
le système Questel était celui qui 
nous serait le plus utile, compte tenu 
de la grande variété de ses bases de 
données et de la qualité de leurs 
mises à jour. 


Les serveurs n'offrent pas nécessaire- 
ment l'accès à plusieurs bases de 
données. Ils peuvent aussi vous pro- 
poser, comme le fait Calvados, de 
partager certaines ressources infor- 
matiques : vous obtenez ainsi au 
bout de votre Apple une puissance 
de traitement informatique qu'il ne 
pourrait vous apporter seul. 


Quelles sont les bases 
de données accessibles ? 


Nous avons une brochure décrivant 
26 bases de données proposées par 
le système Questel. Nous ne pou- 
vons les citer toutes; notons par 
exemple TELEDOC pour les télé- 
communications, BSI sur l'informati- 
que, LOGOS qui a mémorisé les dis- 
cours des personnalités politiques 
françaises en même temps que des 
données relatives à l’activité politi- 
que, économique et sociale française. 
LOGOS vous donnera par exemple 
les références de tous les discours 
des six derniers mois dans lesquels le 
terme ‘lutte des classes” a été utilisé. 


La base MEETING AGENDA vous 
renseigne sur les annonces de 
congrès, conférences et expositions. 
DEFOTEL garde à jour des informa- 
tions boursières et financières pour 
1500 sociétés françaises et étrangè- 
res. CANCERNET s'occupe exclusi- 
vement de tout ce qui touche de 
près ou de loin au cancer. Comme 
vous le voyez, la variété est grande. 


Comment communiquer ? 


Il suffit de relier votre Apple au ré- 
seau avec un modem téléphonique 
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ou acoustique, ou avec la nouvelle 
carte modem intégré disponible 
depuis peu sur Apple II Plus et //e. 
Nous nous servons d’un modem 
acoustique, que nous possédions 
déjà quand nous avons débuté avec 
Questel. La carte modem intégré 
n’était pas disponible quand nous 
avons commencé à communiquer”. 


Combien cela coûte-t- il ? 


Ne prenons pas en compte le coût 
du modem, qui est un coût fixe et 
tient au fait de communiquer, plutôt 
qu’à celui d’avoir recours aux servi- 
ces d’un serveur ou d’un autre. 
Selon là base de données utilisée, le 
coût par heure de connexion varie 
entre 180 F HT et 700 F HIT, la très 
grande majorité des tarifs se situant 
entre 300 F HT et 500 F HT de 
l'heure. Il faut ajouter à cela le coût 
de la citation imprimée (de 0,60 F 
HT à 1 F HT en général). 

Une citation sera par exemple la ré- 
férence d'un article ou d’une confé- 
rence où les mots-clés que nous re- 
cherchons ont été utilisés. 


Peut-on faire un essai ? 


Absolument; il suffit de suivre notre 

procédure habituelle : 

e brancher la carte de communica- 
tion dans le slot 2 : 

e introduire le programme DATA 
CAPTURE dans le drive 1 ; 

® introduire la disquette FICHIER 
dans le second drive : 

e mettre l’Apple sous tension. 


Il se trouve à présent en mode termi- 

nal (TTY). Un premier menu appa- 

raît à l'écran. 

e faire "ESC T A” pour travailler 
avec deux lecteurs 

e faire "ESC T D” pour travailler en 
full duplex 

®e mettre le modem sous tension 

®e mettre le modem en FULL DU- 
PLEX 

® composer le numéro du réseau 
Transpac 

e à l'écoute de la porteuse (tonalité 
indiquant le lien avec l'ordinateur 
au bout de la ligne), enfoncer le 
combiné dans le modem 

e taper H (et RETURN) 

e taper 106000019 ou 106000027 
(et RETURN) pour Questel 1 

® entrer le numéro de compte et le 
mot de passe. 


Ce n'est pas plus compliqué que 
cela. Il ne reste plus qu’à utiliser 
Questel. 
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Introduction 


L'utilisation des types INTEGER ou 
REAL en Pascal ne permet pas de 
disposer de plus de 6 chiffres signifi- 
catifs, ce qui est insuffisant, ne serait- 
ce que pour les applications compta- 
bles. Le type LONGINTEGER peut 
comporter jusqu'à 36 chiffres, mais 
ne permet pas le calcul décimal. Les 
procédures et fonctions définies dans 
cet article permettent d'utiliser 12 
chiffres significatifs avec des expo- 
sants de + à — 30 pour les 4 opéra- 
tions et les comparaisons. On définit 
à cet effet les constantes : 

MINEXPO= — 30 et MAXEXPO= 


+ 30 
SIGNIFICATIF= 12: maximum de 
chiffres significatifs 


Le type RÉEL sera alors défini par : 
REEL=RECORD 


EXPO :MINEXPO.. 
MAXEXPO; 

MANTISSE :INTEGER! 
SIGNIFICATIF!; 


END; 
TRESLONG= INTEGER!32! (con- 
trôle des débordements) 


Les variables MAX et MAX10 sont 
utilisées pour représenter la plus 
grande mantisse et son quotient par 
10. Les autres variables ne sont utili- 
sées que par le programme principal 
servant aux essais, mais la place na- 
turelle de ces procédures et fonctions 
est dans une UNIT en librairie appe- 
lée quand le besoin s’en fait sentir. 


Remarquons que les modifications de 
MINEXPO, MAXEXPO et SIGNIFI- 
CATIF peuvent fournir des procédu- 
res et fonctions pour un calcul à 18, 
24 , … chiffres significatifs, et à expo- 
sant différent de +30. La seule pré- 
caution à prendre sera de contrôler 
que la variable "DEBORDE” peut ef- 
fectivement contenir le produit 
MAXx%*MAX. 


Premières procédures 


PCAR, PCHAINE, PREEL, DIAGER- 
REUR ont déjà été décrites dans de 
précédents articles de Pom's. 


La procédure INITMATH fabrique 
MAX et MAX10. 


La procédure NORMALISE aligne le 
nombre à droite en supprimant les 
zéros s'il y en a et en incrémentant 
l'exposant. 


La procédure SIGNE renvoie + 1 ou 
— 1 selon le signe de TL. 


DIV10 donne l’arrondi du nombre. 
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Calcul à 12 chiffres 


CONTROLER essaie, si nécessaire, 
de ‘faire tenir’ le nombre dans la 
définition en fonction de MAX, 
MAXEXPO et MINEXPO et renvoie 
VRAI s’il y parvient. 


Procédure EGALISEXPO 


EGALISEXPO est utilisée par d’au- 
tres procédures du système ; elle per- 
met d’égaliser les exposants de deux 
nombres afin de faciliter les compa- 
raisons, additions ou soustractions. 


Si, à l'entrée de la procédure, les ex- 
posants sont déjà égaux, on réalise 
un EXIT. Si l'exposant du premier 
nombre est plus grand, on le décré- 
mente progressivement en multipliant 







la mantisse chaque fois par 10, ceci 
s'arrêtant soit quand une mantisse 
devient supérieure ou égale à 
MAX10, soit quand un exposant de- 
vient inférieur ou égal à MINEXPO. 
Ce procédé assure que l'ajustement 
se fait sans perte de chiffres significa- 
tifs. 


Si à l'entrée de la procédure l’expo- 
sant du premier nombre est plus 
grand que celui du second, on ap- 
pelle de façon récursive EGALI- 
Re en inversant les deux nom- 
res. 


Si l'on sort de la première boucle 
WHILE sans égalité des exposants, 
on procède de façon inverse en in- 
crémentant l’exposant du deuxième 
nombre et en divisant chaque fois sa 
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Ré 343 32 PF 
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Michel Crimont 


mantisse par 10, ce qui fait alors per- 
dre des chiffres significatifs. 


Fonctions de 
comparaison 


Les fonctions de comparaison EGAL, 
INFERIEUR et SUPERIEUR appel- 
lent EGALISEXPO, comparent les 
mantisses et renvoient vrai ou faux. 
Elles sont toutes trois appelées par 
COMPARE qui reçoit en paramètre 
M1 et M2 (les deux réels à compa- 
rer) et CA, qui est un caractère de 
comparaison ”= ”, "<” ou ”>”. Il 
est bien entendu possible d'appeler 
directement chaque fonction ou en- 
core, en définissant un type FLAG= 
(SUP,EG,INF), d'écrire COMPARE : 





TuiTuTs LE DEFICIT 
DU COMMERCE EXTERIEUR. 
NE RENTRE PAS AVEC 
12 CHireres ! 


FONCTION COMPARE(M1,M2 : 
REEL) :FLAG: 


Begin 
IF EGAL(M1,M2) THEN 
COMPARE := EG 
ELSE IF SUPERIEUR(M1,M2) 
THEN COMPARE := SUP 
: ELSE COMPARE := INF 
nd; 


Procédures 
arithmétiques 


Les procédures arithmétiques ont 
pour rôle, entre autres, de contrôler 
que l'on ne dépasse jamais les 
bornes fixées pour la représentation 
de la mantisse et de l’exposant du 
résultat. Dans le cas contraire, le. dra- 
peau ERREUR est mis à 1. Toutes 
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les procédures éliminent par avance 
les cas triviaux M1= 0 ou M2= 0. 


1. ADDITION 


Gestion des cas M1= 0 et M2= 0. 
Ensuite, égalisation des exposants. 
Définition de la variable DEBORDE 
qui contient la somme des mantisses. 
Si CONTROLER est vrai, on crée 
RESULT et on le normalise, sinon : 
erreur de débordement. 


2. SOUSTRACTION 


On transforme M2 en —M2 et on 
passe à ADDITION. 


3. MULTIPLIE 


Elimine les cas triviaux, sinon DE- 
BORDE est égal au produit des man- 
tisses et [| à la somme des exposants. 
Si CONTROLER est vrai, on fait RE- 
SULT et on le normalise, sinon ER- 
REUR est mis à 1. 


4. DIVISE 


Gestion des cas M1= 0 et M2= 0. 
Sinon, afin de garder le plus de chif- 
fres significatifs possible, la mantisse 
du dividende est multipliée par 10 
autant que faire se peut sans dépas- 
ser MAX et sans que son exposant 
devienne inférieur à MINEXPO+ 
M2*x EXPO. Ensuite, I prend la va- 
leur de la différence des exposants, 
puis la validité de DEBORDE et de | 
est contrôlée. Si tout va bien, RE- 
SULT est défini et normalisé. 


Toutes ces procédures sont appelées 
par la procédure CALCUL. Elles 
peuvent être appelées directement, 
l'appel de calcul se faisant par exem- 
ple par : 

CALCUL(R1 ,'+ ’,R2,SOMME) 

ou par : 


DIVISE(R1,R2,QUOTIENT) 


Procédure FORMATAGE 


Cette dernière procédure est un 
PRINTUSING défini de la manière 
Suivante : la position des différents 
Chiffres est indiquée par un ”’#" et le 
point décimal, s’il y en a un, par le 
symbole ”.”. Si l'affichage se fait à 
l'aide d’un exposant, la position de 
ce dernier sera marquée par des 


A? 


Le format est décrit dans une chaîne 
de caractères. Tous les caractères al- 
phabétiques de cette chaîne seront 
conservés tels quels dans l'édition, y 
compris les espaces éventuels. Si le 
premier caractère du format est. un 
"*”, ce signe remplacera tous les 
blancs du format jusqu'au premier 
chiffre. Ainsi, l’utilisation du format 
Prix=- # # #4 #—Fr 

fera apparaître à l'écran 

"PRIX=- -12.75-Fr." 

celle de Valeur :-# # #- -Exposant 
AAAN 


donnera "Valeur :— -12- -ExposantE 
+ 12” 

et le format ’x— —# # # #- 
aboutira à ‘x # # #« x 12— _" 


Si un nombre ne peut être repré- 
senté dans le format donné, il est 
remplacé par des ”?”. 


La procédure FORMATAGE a pour 
paramètres le réel M1, le format FM 
et la chaîne résultante SR. Le corps 
de la procédure détecte tout d'abord 
les erreurs, l'absence de format ou 
de chiffres dans le format. 


Ensuite, on regarde si le premier ca- 
ractère est un x”. Si oui, le booléen 
COMPLET est mis à vrai et le pre- 
mier caractère du format x” est sup- 
primé; ensuite, LF prend pour valeur 
la longueur totale du format et l'on 
fabrique la chaîne vide résultat de 
même longueur en forçant le carac- 
tère SRI!O! à la longueur du format, 
puis en remplissant cette chaîne d’es- 
paces grâce à la procédure FILL- 
CHAR. 


PEXPO prend alors pour valeur la 
position de l’exposant dans le format 
et PDEC celle du point décimal dans 
le format. Si les deux existent, c’est 
la représentation avec exposant qui 
est choisie. 


Les procédures EXPOSANT et DE- 
CIMALE sont appelées selon le cas 
et servent à fabriquer SNUM, chaîne 
de caractères image du nombre. S'il 
n'y a pas eu d'erreur et si NUM a 
une longueur inférieure ou égale à 
celle du format, on recopie grâce à 
MOVERIGHT SNUM dans le format 
en prenant la position du chiffre de 
gauche comme repère. Si SNUM est 
trop grand, le format est totalement 
rempli par des ”?”, 


Ensuite, tous les caractères autres 
que les espaces et les signes de syn- 
taxe du format sont recopiés dans 
SR. Enfin, si la variable COMPLET 
est vraie, tout le début du format jus- 
qu'au premier chiffre est rempli avec 
des x”. 


La procédure EXPOSANT est utilisée 
par FORMATAGE pour placer l’ex- 
posant dans SR; on repère d’abord 
le dernier chiffre de droite dans le 
format par un SCAN de droite à 
gauche, et sa valeur est placée dans 
PDEC. Ensuite, on fabrique la chaîne 
SNUM représentant le nombre grâce 
à la procédure STR et l'on calcule le 
nombre de chiffres NC permis par le 
format (position du dernier moins 
position du premier). 


Si ce nombre est plus petit que celui 
autorisé, on supprime des chiffres à 
droite par : 

SNUM := COPY(SNUM,1,NC) 

puis on corrige l’exposant en consé- 
quence. On construit ensuite l’expo- 
sant par STR. On ajoute un zéro à 


gauche si nécessaire; on place le 
signe devant, puis le E et enfin l’ex- 
posant, transféré dans SR par un 
MOVELEFT. 


La procédure DECIMALE est appe- 
lée si le format ne comporte pas 
d'exposant. On repère d'abord deux 
cas : ou PDEC est différent de zéro 
et il y a des décimales à afficher, ou 
il est égal à zéro et il n’y a pas de 
décimale. 


S'il y a des décimales et si le point 
décimal est le dernier signe (un point 
non suivi de ”#”), le nombre de dé- 
cimales NDEC est mis à zéro. 


Sinon, NDEC est calculé comme dis- 
tance entre le dernier ”’#”’ (à droite) 
et le point décimal. On appelle alors 
la procédure AJUSTE qui dans toute 
la mesure du possible va ajuster le 
nombre fourni pour le ’livrer”’ avec 
le nombre de décimales voulues. 


Après quoi, PDEC est ramené à l’ex- 
trême droite. On crée SNUM comme 
précédemment. On ajoute le nombre 
de zéros voulu à gauche du nombre 
si nécessaire et l’on place le point dé- 
cimal à la place calculée. Si le nom- 
bre n’a pas de décimale, le processus 
est le même, mais simplifié du posi- 
tionnement du point décimal. 


Le corps du programme n'a d'utilité 
que pour permettre de contrôler les 
procédures et fonctions, fournir un 
nombre, un opérateur, un deuxième 
nombre et réafficher l'opération sous 
forme normalisée. Le CASE OF sert 
à départager ce qui doit être envoyé 
à CALCUL de ce qui est envoyé à 
COMPARE. 


Pour le calcul, si ERREUR reste à 
zéro, on écrit le résultat normalisé, 
puis on demande le format (donné 
sous forme de chaîne de caractères): 
cette demande est répétée jusqu’à 
l'entrée d’un simple RETURN. 


Pour la comparaison, affichage de 
vrai ou faux selon le résultat. 

Puis fin de la boucle REPEAT sur 
"Voulez-vous continuer ?” 

À noter qu’au lieu d'utiliser directe- 
ment les caractères "+7, 7-7, 749 
etc., il peut être plus simple de défi- 
nir un type : 


OPERATEUR= (PLUS, MOINS, 
FOIS, QUOT.,EG, 
SUP, INF) 


cela sera plus élégant, plus Pascal”, 
mais peut-être moins lisible. C'est 
pour cette raison que j'utilise directe- 
ment les caractères dans ce pro- 
gramme. 


Par ailleurs, COMPARE pourrait très 
facilement s'enrichir de "<=", ">=" 
ou <>” avec la création des fonc- 
tions LE, GE et NE. FORTRAN n'est 
pas si loin. 


Pomsn 8 








PROGRAM MATH12; 


CONST  MINEXPO  =-30:; MAXEXPO =30;  SIGNIFICATIF =12; 
TYPE REEL =RECORD 
EXPO :MINEXPO..MAXEXPO; 4000 gs gt 
MANTISSE:1 8050 AGRICLTEURS y ve 
ae NTEGER(SIGNIFICATIF) Se 2! L'ANNEE DERNIERE le 


V EN AVAÎT MOINS 


TRESLONG =INTEGER(32]; 
CHOIDECA =SET OF CHAR: 


VAR R1,R2, 
RESULTAT  :REEL; 
MAX,MAX10 :INTEGERISIGNIFICATIF); 
DEBORDE : TRESLONG ; 





SRESULT : STRING; 
ERREUR :INTEGER; 
OP : CHAR: 
FORMAT : STRING; 


function PCAR(CBONSET:CHOIDECA) : CHAR; 
var CH : CHAR: 
BON :BOOLEAN: 
begin 
repeat 
READ(C(KEYBOARD , CH); 
if EOLNC(KEYBOARD) then CH:=CHR(13): 
BON:=CH in BONSET; 


if nm CN then WRITE(CHR(7)) 
else if CH in C’ ’..CHR(130)] then WRITE(CCH): 
until BON: 
PCAR : =CH 


end; 
procedure PCHAINE(LONGMAX:INTEGER: BONSET:CHOIDECA; var S:STRING); 
var Si :STRING(1];: 

CONT :STRING: 


I :INTEGER; 
begin 
Slt à CONT:=""; 
repeat 


if LENGTH(CONT)=O0 then S11(1]:=PCARCBONSET+[CHR(13)1]) 
else if LENGTH(CCONT)=LONGMAX then S1111:=PCARCICHR(13) ,CHR(8)1) 
else 5111]1:=PCAR(BONSET+(CHR(13) ,CHR(8)1); 
if S1(1] in BONSET then CONT:=CONCAT(CONT,S1) 
else if S1(1]1=CHR(8) then 
begin 
WRITECCHR(8)," *’ ,CHR(8)); 
: DELETE (CONT,LENGTH(CCONT),1) 
end; 
until S1{(1)]=CHR(13); 
if LENGTH(CONT)<>O then S:=CONT else WRITE(S) 
end; 


PROCEDURE INITMATH; 
VAR BOUCLE :INTEGER; 


BEGIN 
MAX:=0; 
FOR BOUCLE:=1 TO SIGNIFICATIF DO MAX:=MAX»*10+9; 
MAX10:=MAX DIV 10 
END: 
PROCEDURE DIAGERREUR(ER:INTEGER) : 
BEGIN 
CASE ER OF 


1:WRITE(‘’Dibordement‘); 
2:WRITE(’Trop petit’); 
B:WRITE(’Division par zero’) 
END 
END; 


RME PR AD EE T E T 2 € CRE NA NUS TD 
ESÉITRENT EN Pen TESSRERES LES RES ERSSES 
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PROCEDURE NORMALISE(VAR RL:REEL): 


BEGIN 
WITH RL DO 
BEGIN 
IF MANTISSE=O THEN EXPO:=0 
ELSE BEGIN 
WHILE CCMANTISSE-(MANTISSE DIV 10)#10)=0) AND (EXPO<MAXEXPO) DO 
BEGIN 
MANTISSE:=MANTISSE DIV 10: EXPO:=EXPO+1 
END 
END 
END 
END; 
FUNCTION SIGNE(TL:TRESLONG) : INTEGER: 
BEGIN 
IF TL<O THEN SIGNE:=-1 ELSE SIGNE:=1 
END: 
PROCEDURE DIVIO(VAR M:TRESLONG) : 
BEGIN 
IF M>O THEN M:=(M+5) DIV 10 ELSE M:=(M-5) DIV 10 
END: 


FUNCTION CONTROLER(VAR TL:TRESLONG:VAR NP:INTEGER) : BOOLEAN: 
BEGIN 
WHILE C(CSIGNE(TL)#TL>MAX) AND (NP<MAXEXPO)) OR 
CCSIGNE(CTL)#TL>O) AND CNP<MINEXPO)) DO 
BEGIN 
DIVIOCTL);: NP:=NP+1 
END: 
WHILE C(SIGNE(CTL)#TL<MAX)) AND (NP>MAXEXPO) DO 
BEGIN 
TL:=TL#10; NP:=NP-1 
END: 
CONTROLER:=(NP>=MINEXPO) AND CNP<=MAXEXPO) AND (SIGNE(TL)»#TL<=MAX) 
END: 


PROCEDURE PREEL(VAR RL:REEL):; 


VAR SRL :STRING; 
DEC, XP : BOOLEAN: 
I,NP :INTEGER: 
MOINS,BON :BOOLEAN: 
BEGIN 
REPEAT 
RL.EXPO:=0; RL.MANTISSE:=0;: NP:=0: SRL:=’*;  DEBORDE:=0; 
DEC:=FALSE; MOINS:=FALSE: XP:=FALSE; BON:=TRUE: 


PCHAINE(CSIGNIFICATIF+4,[(/+°,°-°,/0°..°9°,’.’,°E°],SRL): 
IF SRL=’’ THEN EXIT(PREEL): 
IF SRL(1]=’-° THEN MOINS:=TRUE: 
I:=1;: 
WHILE (CI<=LENGTH(SRL)) AND NOT XP DO 
BEGIN 
IF SRLII]=’." THEN DEC:=TRUE 
ELSE IF SRLII]1=’E’ THEN XP:=TRUE 
ELSE IF SRLII] IN [’0’..’9’] THEN 
BEGIN 
DEBORDE : =DEBORDE#10+(ORD(SRL[I1]1)-ORD(’0’)): 
IF DEC THEN RL.EXPO:=RL.EXPO-1 
END; 

s=I+1 
END; 
IF MOINS THEN DEBORDE:=-DEBORDE:;: MOINS:=FALSE: 
WHILE I<=LENGTH(SRL) DO 
BEGIN 

IF SRL(I]=’-’ THEN MOINS:=TRUE 
ELSE IF SRLIIJ] IN [’0’..’9°] THEN NP:=NP#10+(CORD(SRLII])-ORD(’0°)); 
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ERNTETITE 


ré 


s=l+i 
END: 
IF MOINS THEN NP:=-NP; 
NP:=NP+RL.EXPO: 
IF CONTROLER(DEBORDE,NP) THEN 
BEGIN 
RL.MANTISSE: =DEBORDE: RL.EXPO:=NP: NORMALISECRL) : 
END ELSE BEGIN WRITELN(’###>* ERREUR’): BON:=FALSE END 
UNTIL BON 
END: 
Cæt#) 
(*« FONCTIONS DE COMPARAISON #) 
Cn#x) 
PROCEDURE EGALISEXPO(CVAR M1,M2:REEL) : 
BEGIN 
IF M1.EXPO=M2.EXPO THEN EXIT(EGALISEXPO): 
IF M1.EXPO>M2.EXPO THEN 
WHILE (CM1.EXPO>M2.EXPO) AND CM1.EXPO>MINEXPO) 
AND (SIGNE(M1.MANTISSE) #M1.MANTISSE<MAX10) DO 
BEGIN 
M1.EXPO:=M1.EXPO-1: M1.MANTISSE:=M1.MANTISSE#10 
END ELSE EGALISEXPO(CM2,M1): 
WHILE (M1.EXPO>M2.EXPO) AND (M2.EXPO<MAXEXPO) AND (M2.MANTISSE<>O) DO 
BEGIN 
M2.EXPO:=M2.EXPO+1; M2.MANTISSE:=M2.MANTISSE DIV 10 
END: 


END: 
FUNCTION EGAL(M1,M2:REEL) : BOOLEAN; 
BEGIN 
EGALISEXPOCM1,M2): EGAL:=M1.MANTISSE=M2.MANTISSE 
END: 


FUNCTION SUPERIEUR(M1,M2:REEL) : BOOLEAN; 
BEGIN 


EGALISEXPO(MIi,M2): SUPERIEUR:=M1.MANTISSE>M2.MANTISSE 
END: 


FUNCTION INFERIEUR(M1,M2:REEL) : BOOLEAN; 


BEGIN 
EGALISEXPO(M1,M2): INFERIEUR:=M1.MANTISSE<M2.MANTISSE 
END: 
FUNCTION COMPARE(M1:REEL;:CA:CHAR;M2:REEL) : BOOLEAN;: 
BEGIN 
CASE CA OF 


?=' : COMPARE: =EGAL (M1, M2) ; 
*<’:COMPARE:=INFERIEUR(M1,M2): 
*>’:COMPARE:=SUPERIEUR(CM1,M2): 
END 
END: 


(* PROCEDURES DE CALCUL #) 

Cr#x) 

PROCEDURE ADDITION(M1,M2:REEL;VAR RESULT:REEL) : 

BEGIN 

IF M1.MANTISSE=O THEN RESULT:-=M2 
ELSE IF M2.MANTISSE=O THEN RESULT :=M1 
ELSE BEGIN 

EGALISEXPO(M1,M2); DEBORDE:=M1.MANTISSE+M2.MANTISSE: 
IF CONTROLER(DEBORDE,M1.EXPO) THEN 








BEGIN 
RESULT.EXPO:=M1.EXPO: RESULT .MANTISSE : =DEBORDE : 
NORMALISE (RESULT) 
END ELSE ERREUR:=1: 
END 
END: 
Pom's n° 8 
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PROCEDURE SOUSTRACTION(M1,M2:REEL; VAR RESULT :REEL) : 
BEGIN 

M2.MANTISSE:=-M2.MANTISSE: ADDITIONCM1,M2, RESULT) 
END; 


PROCEDURE MULTIPLIE(CMI1,M2:REEL:VAR RESULT:REEL): 


VAR I : INTEGER: 
BEGIN 
IF CMI1.MANTISSE=O) OR (M2.MANTISSE=0) THEN 
BEGIN 
RESULT.MANTISSE:=0; RESULT.EXPO:=0 
END ELSE À 
BEGIN 


DEBORDE :=M1.MANTISSE»*M2.MANTISSE: I:=M1.EXPO+M2.EXPO: 
IF CONTROLER(DEBORDE,1I) THEN 
BEGIN 
RESULT.EXPO:=1; RESULT.MANTISSE:=DEBORDE; NORMALISECRESULT) 
END ELSE ERREUR:=1 
END 
END; 


PROCEDURE DIVISE(M1,M2:REEL:VAR RESULT:REEL): 
VAR I :INTEGER: 
BEGIN 
:=M1.EXPO: 
IF M2.MANTISSE=O THEN ERREUR:-= 
ELSE IF M1.MANTISSE=O THEN 
BEGIN 
RESULT.MANTISSE:=0: RESULT.EXPO :=0 
END ELSE 
BEGIN 
WHILE (CSIGNE(M1.MANTISSE)#M1.MANTISSE<MAX10O) AND 
CI>MINEXPO+M2.EXPO) DO 
BEGIN 
M1.MANTISSE:=M1.MANTISSE#10: Tésr-1: 
END: 
I:=1-M2,.EXPO: 
DEBORDE:=Mi1.MANTISSE DIV M2.MANTISSE: 
IF CONTROLER(DEBORDE,I) THEN 
BEGIN 
RESULT .MANTISSE:=DEBORDE: RESULT.EXPO:=1: NORMALISE(CRESULT ) 
END ELSE ERREUR:=2: 


END 
END; 
PROCEDURE CALCUL(M1:REEL:CA:CHAR;M2:REEL:VAR RESULT:REEL) : 
BEGIN Ù 
ERREUR: =0; RESULT.EXPO:=0;RESULT.MANTISSE:=0: k 


CASE CA OF 
+7 :ADDITION(M1,M2, RESULT): 
*-? :SOUSTRACTION(M1,M2, RESULT) : à 
?#° :MULTIPLIE(CM1,M2, RESULT): 
*/*:DIVISE(M1,M2,RESULT) : 
END; 
END: 


Cxtx) 


(* FORMATAGE DU RESULTAT #*} 


Catr) 
PROCEDURE FORMATAGE(M1:REEL;FM:STRING:VAR SR:STRING): 
VAR LF,PEXPO,I,NC,PDEC,NDEC :INTEGER: 
SNUM,SEXPO : STRING: 
COMPLET : BOOLEAN : 
PROCEDURE AJUSTE: 
BEGIN 
WITH M1 DO 
BEGIN 
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IF EXPO=-NDEC THEN EXIT(CAJUSTE); 
WHILE (CEXPO>-NDEC) AND (MANTISSE<MAX10O) AND CEXPO>MINEXPO) DO 
BEGIN 
MANTISSE:=MANTISSE #* 10; EXPO:=EXPO-1 
END: 
WHILE (CEXPO<-NDEC) AND (CMANTISSE>O) AND (EXPO<MAXEXPO) DO 
BEGIN 
MANTISSE:=MANTISSE DIV 10; EXPO:=EXPO+1 
END; 
IF EXPO<>-NDEC THEN ERREUR:-= 
END; 
END; 


PROCEDURE EXPOSANT; 
BEGIN 
PDEC:=LF+SCAN(C-LF,="#,FMILFJ))+1; NC:=PDEC-POS(’#°,FM);: 
STR(M1.MANTISSE, SNUM) ; 
IF NC<LENGTH(SNUM) THEN 
IF (MAXEXPO>=M1.EXPO+LENGTH(SNUM)-NC) THEN 
BEGIN 
M1.EXPO:=M1.EXPO+LENGTH(SNUM)D-NC;  SNUM:=COPY(CSNUM,1, NC); 
END ELSE BEGIN ERREUR:=1; EXIT(EXPOSANT) END; 
STR(ABS(M1.EXPO) , SEXPO) ; 
WHILE LENGTH(SEXPO)<2 DO SEXPO:=CONCAT(’0°,SEXP0) ; 
IF M1.EXPO<O THEN SEXPO:=CONCAT(’-°,SEXP0O) 
ELSE SEXPCO:=CONCAT(’+°,SEXPO) ; 
SEXPO:=CONCAT(’E’,SEXPO) ; MOVELEFT(SEXPOL1],SRIPEXPO], 4); 
END: 
| 


PROCEDURE DECIMAL; 
BEGIN 
IF PDEC<>O THEN 
BEGIN 
IF PDEC=LF THEN NDEC:=0 ELSE NDEC:=SCAN(LF-PDEC,<>’#°,FM(PDEC+11); 
AJUSTE: PDEC:=PDEC+NDEC+1; STR(M1.MANTISSE, SNUM) ; 
WHILE(LENGTH(SNUM) <NDEC+1) DO SNUM:=CONCAT(’0°,SNUM) ; 
INSERT(’.’ ,SNUM, LENGTH(SNUM) -NDEC+1) ; 
END ELSE 
BEGIN 
NDEC:=0; PDEC:=LF+SCANC-LF,=’#",FMILF))+1;  AJUSTE; 
STRCM1.MANTISSE, SNUM) 
END 
END; 


BEGIN (x FORMATE #) 
ERREUR:=0: COMPLET :=FALSE: SR:=’°’: 
IF (FM=’’) OR (POS(’#’,FM)=0) THEN EXIT(CFORMATAGE): 
} IF FM(i]=’*x THEN 

BEGIN 
COMPLET:=TRUE: FM:=COPY(FM,2,LENGTH(FM)-1) 

END: 

} LF:=LENGTH(FM): 

C#SR-x) 

SR(O]:=CHR(LF);: 

CxSR+*) 

FILLCHAR(SRI1]1,LF,° ‘’); PEXPO:=POSC’*T7T°S9°,FM);: PDEC:=POS(’.’,FM): 

IF PEXPO<>O THEN EXPOSANT ELSE DECIMAL: 

IF (PDEC-POS(’#’,FM)>=LENGTH(SNUM)) AND CERREUR=0O) 
THEN MOVERIGHT(SNUMI1],SR[CPDEC-LENGTH(SNUM)], LENGTH(SNUM) ) 
ELSE FILLCHAR(SR(1]1,LF,°7°): 

FOR I:=1 TO LF DO IF NOT(FMEOIJ IN CL’ ’,’#’,°.’,°"°]) THEN SR(II)]:=FM(I);: 
:=1: 

IF COMPLET THEN 
WHILE (NOT (SRÇCIJ IN [’0°..°9°,°?2’]1)) AND (CI<=LF) DO 

BEGIN SRII]:=’#’;:1:=1+1 END: 


USINE EEE 


END; 


BEGIN (* PROGRAMME PRINCIPAL POUR ESSAI *) 
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INITMATH:; 
REPEAT 
PAGE COUTPUT) : 


WRITE(’Programme d’’essai -calcul a 12 chiffres”); WRITELN:WRITELN: 


WRITEC’N1 : ‘);:PREEL(R1): 


WRITE(’ Op : );O0OP:=PCAR(LI’+,-7 UT A RS PR LE DE 


WRITE(’ N2 : ’);PREEL(R2) :WRITELN: 


WRITECR1.MANTISSE,’E”’ *R1.EXPO,OP,R2.MANTISSE,’E’,R2.EXPO,’="): 


CASE OP OF 
CET Et CRT AE BECTIN 


CALCULCR1,0P,R2,RESULTAT) : 


IF ERREUR=O THEN 
BEGIN 


FORMAT:=’?’: 


WRITELNCRESULTAT.MANTISSE,’E’,RESULTAT.EXPO) : 


WHILE FORMAT<>’’ DO 
BEGIN 
FORMAT:=""; 


WRITE(’Format : ’): 


PCHAINE(20,[° ’..CHR(126)] ,FORMAT) : 


IF FORMAT<>’’ THEN 


BEGIN 
WRITE(” --»>’): 


FORMATAGE(CRESULTAT, FORMAT, SRESULT) : WRITELN( SRESULT ) 


END 
END 


END ELSE DIAGERREUR(ERREUR) 


END: 
rat, ter Ep? 
END: 
WRITELN;WRITE(’Continuer (O/N) ? ? jrs 


UNTIL PCAR(I’0’,°N’,’o°,’n’]) IN C’N°,’n°]1 
END. 


DUMPUME- 


CARTE INTERFACE GRAPHIQUE HAUTE 
RESOLUTION AVEC OÙ SANS BUFFER 





DUMPLING-GX est une carte d'interface parallèle graphique qui per- 
met d'établir une communication intelligente entre un APPLE li et la plu- 
part des imprimantes. La sélection d'imprimante se fait par DIP Switch. 
EPSON — C-ITOH — NEC — OKIDATA — CENTRONICS — TALLY — APPLE 


De simples commandes permettent de gérer la mise en page et les 
fonctions graphiques, entre autres : 

- Longueur de ligne et de page : Marges gauche et droite : Copie d'écran 
texte - Simulation de graphiques en continu : Copie d'écran graphique 
page 1 et/ou 2: inversion (noir/blanc) : Rotation 90° - Double format: Dou- 
ble frappe 


DUMPLING-64 offre toutes les possibilités de DUMPLING-GX avec en 
plus un buffer/spooler de 64 K. Principales caractéristiques : 


- Reconnaissance automatique de la taille du buffer : Multiples copies 
d'écran consécutives - Compression des espaces - Pause immédiate 
ou différée - Possibilité de commande à distance: 

Compatible CP/M ou Pascal. 


DUMPLING-GX = 1650 FHT  DUMPLING-32 = 2580 FHT 
DUMPLING-16 = 2390FHT  DUMPLING-64 = 3390 FHT 


FT SR 





tel. (1) 605.88.78 








207 rue Gallieni 92100 BOULOGNE 





LA SDS TE 
NERCE 


‘IF COMPARE(R1,0P,R2) THEN WRITE(’vrai’) ELSE WRITE(’faux”’): 





IS PipeLine” 


UN NOUVEAU CONCEPT 


PIPELINE est une mémoire-tampon intelligente qui intro- 

duit un nouveau concept révolutionnaire — RANDOM 

ACCESS PRINTING — qui permet : 

- de composer, réorganiser, dupliquer les données à im- 
primer ; 

- de combiner texte, tableaux, graphiques dans une même 
impression : 

- de génèrer automatiquement des états personnalisés à 
partir de lettres, mémos, rapports ; 

- de recopier le document un nombre quelconque de fois. 

Le mode RAP permet ainsi de faire travailler ensemble 

plusieurs programmes pour donner une impression 

combinée. 

Le mode FIFO imprime dans l’ordre des entrées (mode 

conventionnel). 

Le mode BYPASS permet la suspension d’une impres- 

sion longue pour éditer une impression courte. 

IS PIPELINE est facilement extensible de 8K à 128K. II 

s'intercale entre tout ordinateur et imprimante avec in- 

terface parallèle type Centronics. 






BYPASS MODE _—*" } =. 
PERS a Er | Le 


Te MODE _) 














PipeLine 






LEA 
EYES 
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Deux ans de Pom's : 
sommaire thématique 


Beaucoup de nouveaux lecteurs nous posent des ques- 
tions dont les réponses se trouvent dans les numéros de 
Pom's déjà parus. Nous avons donc décidé de reprendre 
ici le sommaire, classé par thèmes, des huit premiers nu- 
méros de Pom's. Il est à noter que les quatre premiers 
numéros ont été réédités dans le recueil de Pom’s numéro 
EU lon peut commander directement aux Editions 


Matériels et cartes 


Inverseur DOS 3.2-DOS 3.3 

Survol de l’Apple /// 

Les mémoires de masse 

La carte M/DOS 6502 à l'essai 
Banc-test de la carte Legend 128K DE 
La souris de Lisa 

L’Apple //e à l'essai 

Le Basis 108 à l'essai 


Logiciels commerciaux 


Visicalc et Applesoft 

P.L.E. : le Program Line Editor 

C.R.AE. : Co-Resident Applesoft 1 Editor 
Les utilitaires de documentation : 

Dakin 5 - Apple Doc - DOS Tool Kit 
Applewriter - Easywriter - Magic Window 
Les éditeurs de texte 

CCA DMS - PFS - Visifile - DB Master 
Bases de données sur Apple 

CX Muitigestion à l’essai 

The Last One à l'essai 

C.O.R.P. à l'essai 

Visicalc et traitement de texte 

Le cours de BASIC Applesoft André Finot 
Muitiplan à l'essai 

PILOT et SuperPILOT à l'essai 
Présentation du H-BASIC 


Graphiques 


Graphiques : de l'ITT 2020 à l'Apple 
Les adresses du graphique 
Applications de grahique H.R. 
Contrôlez le nettoyage mémoire 
Routine de présentation graphique 
Création de tables de formes 
Création graphique en Pascal 
Logiciel graphique en Pascal 
Graphique, quand tu nous tiens. 
Graphiques et logique 

Hard Copy Seikosha GP80 

Un programme de fondu enchaîné 
Création de caractères graphiques 


Jeux et loisirs 


Un programme aide-mémoire 
Changez votre poignée de jeu 
La leçon de calcul 

Le jeu de la vie 

Réponse au concours de Pom's 
Robotwar 
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Alexandre Duback 
Tortue Ampersand 6 
Le loto, c’est facile... 6 
Cryptographie à clef publique 7 
Les quatre ponts 7 


Programmes utilitaires 


Des instructions en une lettre 
Déplacement du programme en assembleur 
Analyse du contenu des slots 
Réparez votre APPEND 

Réparez votre RENUMBER 

Faites le ménage dans la mémoire 
Sprechen Sie DOS ? 

S.H.LAM : une routine bien pratique 
Un exemple de HELLO 

Copie d'écran texte 

Personnalisez vos disquettes 

Un programme de TRACE sélective 
Un catalogue général en Pascal 
Chargez vite vos fichiers binaires 
Un PRINT USING d'intérêt général 
Le clavier magique 

Transfert d’Applesoft vers EXEC 
Un programme de HELLO complet 
Un analyseur de syntaxe 

Dump Pascal 

Gestion de masques en BASIC 
FID, MUFFIN et DEMUFFIN 

Boot P.L.E.+C.R.AE. 

Francisez le DOS 

Calculs en format gestion 
Recherche de codes binaires 

Le Pascal à 12 chiffres 


Pour faire son apprentissage 


Programmer en Pascal 

Formatez vos programmes 
Apprentissage de l’assembleur 

Les fichiers EXEC 

Notions de base (chargement de binaire) 
Notions de base : les fichiers 

Notions de base : INPUT généralisé 
Ergonomie des programmes 

Des programmes relogeables 
Création de fichiers EXEC 

Mini-base de données 

Notions de base : gestion de fichiers 
Accélérez vos programmes en BASIC 
Conseils aux débutants 


Pour devenir expert sur Apple 


Overlay dynamique 

Incursion dans les mystères du DOS 
3 secondes pour trier 

Conversion Pascal/BASIC/Pascal 
Les codes ASCII épluchés 

Les arcanes du moniteur Apple /// 
Le moniteur étendu 


Et tant d’autres articles... 


Des boucles à s’arracher les cheveux 
Communication grâce à l'Apple 
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Communiquez grâce au format DIF 
Un Apple à la clinique 

La 7me W.C.C-F. 

La programmation facilitée 

HAIFA : un amper-interpréteur complet 
Tableaux de taille déclarée en Pascal 
Un générateur 

Un programme de test universel 
Effacement de directory en Pascal 
Allo, Questel ? 

Micro-informations : les nouveautés 
Saisie de réels en Pascal 


*+ * 


00 00 00 -J -J -J OUI OT. RP 


* Article non repris dans le Recueil 1 de Pom's 
*x Parus dans la rubrique Trucs et Astuces 


Remarques 


De nombreux articles pouvaient être classés dans plusieurs 
catégories : ainsi HAIÏFA est à la fois un outil de création 
graphique, un merveilleux utilitaire, l’occasion de devenir 
un expert sur Apple (si l’on analyse les 150 secteurs en 
source Lisa 2.5 |). Nous nous sommes efforcés, dans les 
cas de ce genre, de placer l’article dans la catégorie à la- 
quelle il pouvait le plus s'identifier. 


D'autre part, il ne faut pas oublier que, même si la 
compréhension d’un programme peut vous sembler im- 
possible, cela ne vous empêche pas de l'utiliser. On utilise 
couramment des jeux, Visicalc, ou du traitement de texte, 
tout en étant pour la plupart d’entre nous incapables de 
comprendre le programme qui en est la base. 





Conseils aux débutants 


Vous venez d'acquérir un Apple //e où un Apple /// flam- 
bant neuf et vous vous trouvez confronté au premier pro- 
blème : comment faut-il disposer le matériel ? 


Installation 


En effet, sur la plupart des publicités et brochures, l’on voit 
le moniteur posé sur les deux lecteurs de disquettes, alors 
que le manuel du DOS recommande explicitement d'éloi- 
gner les lecteurs d'un récepteur de télévision. 


En fait, il n’y a pas péril en la demeure. La meilleure 
preuve est que le lecteur incorporé de l'Apple /// se trouve, 
par la force des choses, proche du moniteur ! 


Les seules fois où nous avons pu constater un problème, 
le moniteur avait une base en plastique. Cela se manifes- 
tait par des [/O ERRORSs qui ont disparu quand on a dé- 
pe les lecteurs de disquettes, pour les mettre à droite de 
"Apple. 


Précautions d'utilisation 


La principale règle à respecter est la suivante : ne jamais 
mettre ou enlever une carte dans un appareil allumé, c’est 
la meilleure façon de griller la carte. 


Le bouton d’allumage de l'Apple a toujours été son point 
faible, surtout en ce qui concerne l'Apple II Plus. Il est plus 
prudent (et plus simple) de brancher toutes les prises 
(Apple, moniteur, imprimante, accessoires éventuels) sur 
un râtelier de prises, l'idéal étant d’en avoir un muni d’un 
interrupteur. On laisse alors tous les appareils allumés” en 
permanence, sauf l'imprimante qu’il est inutile de faire 
chauffer pour rien. 


Ces précautions étant prises, on peut faire pratiquement ce 


que l’on veut. Il faut être très fort pour faire ”’ariller” un 
Apple par programme : nous savons le faire, mais ne vous 
dirons pas comment … 


Les disquettes 


À manier avec amour et délicatesse; il est indispensable à 
ce titre de lire la rubrique *Trucs et Astuces” à la page 15 
du Pom's 6. 

Muni d’une bonne paire de ciseaux, ou d’une pince à 
tiercé, vous pouvez diminuer par 2 votre budget disquettes 


en pratiquant une encoche opposée à l’encoche latérale 
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actuelle. Le verso de la disquette devient alors utilisable; il 
n'est pas garanti par le fabricant, mais ne pose pratique- 
ment pas de problème. 


Bien entendu, ne jamais forcer lors de l'introduction ou de 
l'extraction d’une disquette. Eviter la proximité de tout ce 
qui comporte des électro-aimants, le support magnétique 
étant par définition sensible à leur influence”. En particu- 
lier, ne pas poser le téléphone sur une disquette ! 


Que faut-il lire ? 
Nous conseillons les ouvrages suivants : 


Pratique de l'Apple Il, par Henri Lilen (Editions Radio : 
facile à comprendre, très bien pour les débutants. 


Visicalc sur Apple, par Hervé Thiriez (Editions du PSI) : 
indispensable pour une utilisation efficace de Visicalc. 


BASIC Applesoft - Manuel de référence alphabétique, par 
Paul Merry : il fait bien ce qu'’indique le titre. Par contre, 
mal encollé, il vous reste dans les mains. 


Clefs pour l'Apple Il, par Nicole Bréaud-Pouliquen (Edi- 
tions du PSI) : voir la rubrique bibliographique de ce nu- 
méro. 


La pratique de l'Apple II (volume Ill), par Nicole Bréaud- 
Pouliquen et Daniel-Jean David (Editions du PSI): pour 
ceux qui désirent apprendre l’assembleur du 6502. 


Ceci dit, une mine inépuisable de programmes, idées et 
renseignements se trouve à portée de votre main dans 
Pom's. Pourquoi vous en priveriez-vous ? Si une seule 
page lue dans un numéro de l’année vous évite de perdre 
une journée, vous avez largement amorti votre abonne- 
ment avec disquettes. En outre, de nombreux programmes 
fournis avec la revue (HAIFA, un programme de HELLO 
complet, l’analyseur de syntaxe, ..) supportent aisément la 
comparaison avec des programmes commerciaux vendus 
de 300 à 900 francs. 


On nous demande souvent pourquoi il n’y a pas d'ouvra- 
ges dans notre langue sur l'Apple ///. Il y à deux principa- 
les raisons à cela. La première est que, pendant long- 
temps, les ventes d’Apple ///, assez faibles par rapport à 
celles de l'Apple II, ne justifiaient pas un tel effort. La se- 
conde raison, toujours valable en bonne partie, est que la 
grande majorité des possesseurs de l'Apple /// sont des uti- 
lisateurs professionnels : ceux-ci lisent en général peu sur 
le sujet, se contentant souvent de faire tourner la machine 
à longueur de journée avec des programmes standards. 





Pom's n° 8 





Le H-BASIC : un BASIC Pascalien 


Pourquoi un 
langage ? 


En pratiquant un peu le BASIC, on 
s'aperçoit très vite des limites du lan- 
gage et peut-être un peu moins vite 
des mauvaises habitudes qu'il fait 
prendre: les GOTOSs rendent les pro- 
grammes difficilement lisibles, l’ab- 
sence de variables locales et de vrais 
sous-programmes empêche de traiter 
des problèmes récursifs et rend diffi- 
cile la structuration d’un programme. 


nouveau 


Pour pallier ces limitations, on peut 
passer au Pascal, mais ce langage 
coûte cher, se montre plus complexe 
et plus difficile à débugger, ne pos- 
sède pas de graphisme basse-résolu- 
tion et est très lourd dès qu'il s’agit 
d'utiliser des routines en assembleur. 
On peut aussi faire du Lisp ou du 
Logo, mais leur spécificité en fait des 
langages un peu à part. On peut 
enfin faire du FORTH (nous reparle- 
rons certainement de ce langage 
plein d’avenir). 


Nous avons préféré créer un langage 
hybride possédant les structures de 
bloc du Pascal et ”’collant” de près à 
l'Applesoft. Deux possibilités s'of- 
fraient pour cela: l’amper-interpré- 
teur (c'est-à-dire ajouter des com- 
mandes à l’Applesoft par le biais de 
la commande ampersand &), qui po- 
sait des problèmes de lisibilité du lis- 
ting, et le compilateur (c’est-à-dire un 
programme traduisant un programme 
source écrit en H-BASIC en un pro- 
gramme objet écrit en Applesoft), so- 
lution que nous avons retenue ici. 


Caractéristiques 

du langage 

Un programme en H-BASIC est 
formé de blocs emboîtés appelés 


procédures, qu’on peut appeler avec 
ou sans paramètres, par l'instruction 


Voici un exemple de programme 
écrit en H-BASIC : 


procédure PRINCIPALE 
var N, P, A$ 


procédure MOINS 
in À: out B 
begin 
B=-A 
end 


begin 
input N 
@ MOINS (N,P) 
print P: get A$ 
end 


SRE), 
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Les variables sont celles de l’'Apple- 
soft, les tableaux jouant un rôle parti- 
culier: ils sont représentés par un 
dièse devant leur nom dans la partie 
déclaration de variables et passage 
de paramètres, et on peut définir une 
opération directe sur les tableaux si 
leurs dimensions coïncident: #A=#B 


Les exemples ci-dessous montrent les 
principales instructions permises entre 
le ”’begin” et le ’end” d’un bloc : 


for I=1 to 10 
print I 
endfor 


while I<2000 
I=2%*1 
endwhile 


until I<.01 
I=Ix.3 
enduntil 


De plus, la plupart des instructions 
Applesoft sont permises (HOME, 
TEXT, &, etc.). 


Un exemple parlant : 
les tours de Hanoï 
Nous joignons un listing type du pro- 


blème des tours de Hanoï, écrit en 
Applesoft, en Pascal, en H-BASIC et 


Sur l’Applesoft Sur le Pascal 





Olivier Herz 


en Applesoft après compilation du 
code H-BASIC. 


Avantages et 


inconvénients 
du H-BASIC... 






















Mieux structuré 
Variables 
locales 
Affectation 
de tableaux 
Vrais sous-prog. 


Moins complexe 
Debuggage facile 
&-interpréteur 

Instruction DATA 
Graphisme basse 
résolution 
















Compilation Lenteur 







assez longue du BASIC 
Plus encombrant | Peu de types 
en mémoire de données 
Peu de noms 
de variables 







Pas de fonctions 





Comment écrire en H- 
BASIC ? 


Il faut créer un fichier TEXT conte- 
nant le programme H-BASIC. Deux 
méthodes sont possibles : utiliser un 
système de traitement de texte 
comme AppleWriter II ou bien 





procedure HANOI 
var #NS(2), Nx 


procedure DEPLACE: 
begin 


Hanoï H-BASIC 


in À, B 


print NS(A)D;" --> "“;:NS(B). 


end 


procedure TRANSFERT: in 
var !AUTRE=3-DEBUT-FIN 


begin 
if TAILLE=1: 
else 


TAILLE, !DEBUT, !FIN 


@ DEPLACE(CDEBUT,FIN) 


@ TRANSFERT(!TAILLE-1,!DEBUT, ! AUTRE) 


DEPLACE(CDEBUT,FIN) 


@ TRANSFERT(!TAILLE-1,!tAUTRE, FIN) 


endif 
end 


begin 
until N%>0O 
text: home 


input "NOMBRE DE DISQUES? 
N&(O)="GAUCHE" 
NS(2)="DROITE" 


enduntil: 

NS(1)="MILIEU": 

@ TRANSFERT(N#%,0,2) 
end 


“ts N% 











RÉURRRELTRENELE ot: MRÉAERRIEERRR 


(+ 





l'écrire dans les REMs d'un pseudo- 
programme Applesoft et créer le fi- 
chier TEXT selon une procédure sim- 
ple expliquée dans la documentation 
du H-BASIC. 


Puis on lance le compilateur qui crée 
à partir de ce fichier un fichier TEXT 
contenant le programme Applesoft. I] 
suffira alors de faire EXEC ‘nom du 
fichier” et l'on obtiendra le pro- 
gramme Applesoft compilé qu'il fau- 
dra sauver par SAVE. 


Que contient le progiciel 
H-BASIC ? 


On y trouve bien sûr le compilateur, 
écrit en H-BASIC et sa version exé- 
cutable compilée en Applesoft, ainsi 
que quelques routines assembleur 
utiles au compilateur. 


On trouve aussi tout un ensemble de 
routines nécessaires aux programmes 
une fois compilés, routines que l’on 
peut bien entendu utiliser directe- 
ment dans un programme Applesoft : 
empilement et dépilement de varia- 
bles et tableaux, affectation de ta- 
bleaux, RESTORE NNN, GOSUBs 
quasi-illimités, tout cela par le biais 
d'une pile qui permet la récursivité 
en BASIC. 


On trouve enfin un certain nombre 
de programmes de démonstration 
écrits en H-BASIC et compilés en 
Applesoft, comme le jeu Le compte 
est bon”, exemple récursif de l'intérêt 
du H-BASIC. 


Conclusion 


Nous conseillons bien entendu le H- 
BASIC à tous ceux qui sont à la re- 
cherche d’un langage facile et plus 
agréable que le BASIC. Nous insis- 
tons de plus sur le caractère didacti- 


program HANOI: 


var NOM: ARRAVIG..2] of 
N : INTEGER: 
procedure DEPLACE 
begin 
writelnt(NOM(CA)D,* --> 
end: 


Hanoï Pascal 


INTECER: 


CA,B:INTEGER) : 


‘,NOMCB)) 


procedure TRANSFERT (TAILLE,DEBUT,FIN:INTEGER): 


var AUTRE: 
begin 
AUTRE:=3-DERBUT-FIN: 


INTEGER: 


1£ TAILLE=1 then DEPLACE(DEBUT,FIN) else 


begin 


TRANSFERT(TAILLE-1,DEBUT, AUTRE) : 


DEPLACE(CDEBUT,FIN): 


TRANSFERT(TAILLE-1,AUTRE,FIN) 


end 
end : 


begin 
repeat 
page(output): 


write(CNOMBRE DE DISQUES 


readln(N) 
until N>0: 
NOMC1):="MILIEU"’: 
TRANSFERTEN,0Q,2) 
end. 


#2 


NOMCO) : =’ GAUCHE” : 
NOMC2)3:="DROITE": 


0 


que de ce package, l'épluchage d'un 
compilateur écrit ‘’’dans lui-même” 
étant toujours un exercice passion- 
nant, d'autant plus que l'utilisateur 
peut ainsi facilement modifier le jan- 
gage à sa guise, sans parler des routi- 
nes en assembleur qui rendent l'Ap- 
plesoft récursif. 


NB : l'existence de ces routines em- 
pêche une compilation du pro- 


gramme Applesoft (TASC, Expedi- 
ter, .…). 

Comme il aurait fallu consacrer plus 
de la moitié de la revue au mode 
d'emploi et au listing du H-BASIC, il 
nous à fallu décider d'en faire un 
progiciel à part. Vous ne trouverez 
donc pas le H-BASIC sur la disquette 
d'accompagnement. Celui-ci est 
vendu par correspondance au prix 
de 150 francs TTC, manuel d’utilisa- 
tion compris. 





Hanoï Applesoft 


10 TEXT : HOME : INPUT 
ES? “;N%: PRINT : 
10 


20 DIM DEBUT(N%) ,FINCN%) ,AUTRE(N%) ,NS (2 


DINS(O) = "GAUCHE":NS(1) = 
U":NS(2) = 
:FINC(N%) = 2:AUTRE(N%) = 1: 
30: END 

30 IF Nx = 


"NOMBRE DE DISQU 
IF N% < 1 THEN 


Hanoï H-BASIC compilé 


10S REM 
"MILIE 


DROITE":DEBUT(N%) = © 110 GOTO 180 


GOSUB | 419 REM 


100 PRINT CHRS (4)"BLOAD PILE,A32000": 
HIMEM: 32000: DIM Z2Z$(19),2Z(19) 
»YYCS),YYS(C9): & 


GOSUB 110: END 


-- DEBUT DE LA PROCEDURE HANOI 


-- PROCEDURE DEPLACE 


1 THEN À = DEBUT(N%):B = FIN 


CN%): GOSUB 100: RETURN 120 PRINT NS(AD;" --> ":NS(B)D: &  RETUR 
40 N% = N% - 1:DEBUTCN%) = DEBUT(N% + 1) N 
:FINÇCN%) = AUTRECNX% + 1):AUTRE(N*% | 159 REK 


2 = FINCN% + 1): 


GOSUB 30:A = DEB 


UTON% + 1):B = FINCN% + 1) 


-- PROCEDURE TRANSFERT 


SO GOSUB 100:DEBUT(N%) = AUTRE(N% + 1): | 130 & > AUTRE:AUTRE = 3 - DEBUT - FIN: 
FINCN%) = FINCN% + 1):AUTRE(CN%) = IF NOT (TAILLE = 1) THEN 150 
DEBUT(N%X + 1): GOSUB 3O:N% = N% 140 A = DEBUT:B = FIN: & GOSUB 120: GOT 
+ 1: RETURN G 170 

100 PRINT NS&(AD;" --> ":NS&(B): RETURN 150 Z2Z(O0) = TAILLE - 1:2ZZ(1) = DEBUT:ZZ( 
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2) = AUTRE: & 
TAILLE = 


> TAILLE,DEBUT,FIN 
ZZ(O):DEBUT = Z2Z(1):FIN 


= 22Z(2): & GOSUB 130: & < FIN, 
DEBUT,TAILLE:A = DEBUT:B = FIN: & 
GOSUB 120:2Z(0) = TAILLE - 1:22 
(19 = AUTRE:ZZ(2) = FIN: & > TAI 
LLE,DEBUT,FIN 
160 TAILLE = Z2Z(0):DEBUT = ZZ2(1):FIN = 2 
2Z(2): & GOSUB 130: & < FIN,DEBU 
T,TAILLE 
170 & < AUTRE: & RETURN 


173 REM 

-- CORPS DE LA PROCEDURE HANOI 

180 & > #NS: DIM NS(2) 

190 TEXT : HOME : INPUT "NOMBRE DE DISQ 


UES? "“;:N%: IF NOT CN% > O) THEN 
130 
200 NS(O) = “"GAUCHE":NS(1) = "MILIEU":NS 


C2) = "DROITE": & > TAILLE,DEBUT 
»FIN:TAILLE = N%x:DEBUT = O:FIN = 
2: & GOSUB 130: & < FIN,DEBUT,T 
AILLE: & < #NS: & RETURN 





Trucs et astuces 


Les joies du PR# 


PR# n reprogramme le saut de la sortie de caractères 
vers le slot n (0 pour l'écran)è de même, IN# n repro- 
gramme l'entrée de caractères (0 pour le clavier). Tout 
cela se fait à l’aide des routines situées de $Cn00 à 
$CnFF de la PROM du slot. 


Or, si le slot est un contrôleur de disquettes, l'appel de 
la routine fait rebooter : ainsi, PR# 6 ou IN# 6 entrai- 
nent le boot. 


Apple // 


leurs interfaces, 


Mais le boot n'a pas heg tout de suite si l'on fait pa- 
tienter avant la lecture ou l'écriture d'un caractère. Par 
exemple, faire en Applesoft : 

:PR# 6:FOR I=1 to 1O000:NEXT 

Voir. dans le Pom's, ds 28, pourquoi nous débutons 
par ‘: 


On peut aussi lancer le p pr 


me : 
10 PRINT Fees PRE ”: IF PEEK (—16384)<128 
THEN 10 


Amusant, n'est-ce-pas he 





Apple /// 


leurs périphériques, 
leurs logiciels 


Démonstrations Jeudi 


un m.b.d.c. 


172, rue Solférino - 59800 LILLE TEL. (20) 57.91.87 


se ® IPPX personnel 





concessionnaire agréé APPLE - S.A.V. sur place 
ouvert du mardi au samedi de 9h30 à 12h et de 14h30 à 19h 





53 ses Led x: EUR TES ENTET 
FRÉRS PERTE RER VOS TYEETT 
«à KA % % 
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L'AGENCE AUX 7 CUENTS 


Bon pour une documentation gratuite. 





Nom 





Les Logiciels Saari 
ont obtenu la Pomme dOr 
et le label Bureau Véritas. 

Vous savez maintenant 
à qui vous fier, 


























leurs logiciels, Nous aussi. C'est humain, c'est normal. 
Mais la différence c'est qu'il n'y a pas que Saari 


pour dire du bien des logiciels Saari. 


Parmi plusieurs dizaines de logiciels la Paie 
Gipsi a obtenu la récompense suprême décernée 


par Apple, la Pomme d'Or du Logiciel. 


Afin d'apporter un maximum de sécurité à ses 
clients, Saari a confié au Bureau Véritas le soin de 
tester ses programmes pour vérifier leurs qualités. 
Le label Bureau Véritas attestant de ces contrôles est 


apposé sur les programmes Saari. 


La Presse Informatique a beaucoup parlé des 
Logiciels Saari, louant leurs qualités: facilités d'uti- 
lisation ou d'apprentissage, richesse fonctionnelle, 


sécurité d'emploi ou finition. 


Les Logiciels Saari sont également conformes 


aux derniers textes légaux parus. 


Mais il y a aussi plusieurs centaines d'utilisa- 
teurs heureux pour dire du bien de nos logiciels. 
Des utilisateurs rassurés en particulier par le Saari 
Sécurité Service, un ensemble de services exclusifs 


à Saari, 


Saari, aujourd'hui, ce sont trois logiciels, une 
Comptabilité, une Paie et une Gestion de Dossiers. 
Trois logiciels à qui vous êtes sûrs de pouvoir vous 


fier. 


« L'Esprit Français » 


45, rue Galilée, 75116 Paris 
Tél. (1) 723 78 56 - Télex 611 423 









0 © on os 











Société 











Adresse 
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NDLR : la très grande longueur de 
cet excellent moniteur étendu nous a 
amenés à couper une partie du lis- 
ting. Nous avons ainsi coupé du 
“source” imprimé les routines de 
TRACE (732-749), STEP (750-846) 
et MINI-ASSEMBLER (918-1089), 
qui correspondent à des thèmes déjà 
traités dans Pom's. En outre, pour 
faire de la place, les routines de 
conversion (501-638) et de recher- 
ches de codes (394-500) ont elles 
aussi été court-circuitées. Le pro- 
gramme source complet se trouve 
sur la disquette d'accompagnement. 
ainsi qu'un programme DUMP en 
Basic permettant à ceux qui ne pos- 
sèdent pas le Big Mac de faire la liste 
complète du source sur leur impri- 
mante. La récapitulation à la fin de 
cet article est bien entendu complète; 
bon courage à ceux qui tiennent à 
l'entrer au clavier (la disquette d'ac- 
ie est disponible pour 
50 FF TTC). 


Le moniteur d’origine de l'APPLE II 
occupe 2K octets, de S$F800 à 
$FFFF. Dans cet espace plutôt réduit, 
ses concepteurs ont tout de même 
réussi à loger un désassembleur, en 
plus de toutes les commandes indis- 
pensables. Lors de l'introduction de 
la ROM AUTOSTART, certaines 
fonctions furent rajoutées (ESC- 
LJ,K.M;, CTRL-S; Auto-Boot; .) au 
sl des fonctions STEP et 
E. 


L'un des premiers objectifs de ce 
moniteur étendu fut de recréer ces 
fonctions, vous allez voir qu'il va fi- 
nalement bien au-delà ! 


Parmi les fonctions les plus remar- 
quables, il faut noter : 


— le pas-à-pas (STEP) 

— le pistage (TRACE) 

— le mini-assembleur 

le point d'arrêt 

— la recherche d’octets 

les minuscules au clavier 

— les conversions HEXA — DECI- 
MAL et DECIMAL — HEXA 

— l'addition et la soustraction sur 16 
bits. 


1. Appel du moniteur 
étendu (&) 


Ce moniteur est écrit en Big Mac. 
Son assemblage nécessite la version 
64K du Big Mac; sinon, il faut cou- 
per les remarques pour regagner de 
la place et assembler en version 48K. 
Il occupe les emplacements mémoire 
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Moniteur étendu 
pour Apple II Plus et Ile ::::1: rs 


$8D00—$95FF. Pour l'appeler, il suf- 
fit de taper : 


8D00G depuis le moniteur, 
CALL 36096 (ou CALL —29440) 
depuis le BASIC. 


Une autre solution consiste à simple- 
ment faire ‘BRUN MONITEUR” à 
partir du BASIC. 


Vous pouvez savoir que vous êtes 
sous son contrôle grâce au signe 
(PROMPT) et au nouveau son de la 
cloche. Le nouveau signe est un as- 
térisque affiché en inverse. 

Si vous êtes en BASIC, tapez main- 
tenant ”&” puis "RETURN”. Le mo- 
niteur vous répond : 
SAND OK >>”. Par la suite, pour 
appeler le moniteur depuis le BASIC, 
il vous suffira de taper à nouveau 
"&” et RETURN”. De plus, on re- 
tourne au moniteur si on tombe sur 
un BRK (par exemple CALL —35 ou 
FFDDG) car le moniteur repro- 
gramme le BRK (119-122). 


2. Les commandes 


D'une manière générale, la syntaxe 
des commandes a été calquée sur 
celle du moniteur d’origine (sauf RE- 
TURN seul qui n'affiche plus les 
octets de la mémoire) : les adresses 
où arguments se placent devant, im- 
médiatement suivis par une lettre de 
commande, sans espace. Plusieurs 
commandes peuvent s'écrire sur une 
même ligne. Les commandes ”nor- 
males” du moniteur fonctionnent 
toujours de la même facon, mais affi- 
chent parfois des indications complé- 
mentaires. C'est le cas par exemple 
de la commande ”:” qui, après le 
RETURN suivant, affiche l'adresse et 
le contenu du prochain emplacement 
mémoire dès que l’on enfonce la 
barre d'espace : 


2000 . nu A2 FF [RETURN] 
[ESPACE] 
20DAAT 


Cela est souvent utile lorsqu'il faut 
taper toute une liste d’octets; on est 
sûr de ne pas sauter une adresse. 


Marche arrière(/\) 


Pour corriger une erreur, il est possi- 
ble de revenir à l'adresse précédente 
en tapant ”’/\” juste derrière le 
prompt, au début de la ligne sui- 
vante. L'adresse précédente s'affiche 


Eve p ess ébéMasn ous rev ERESELE 
SL D ain SUR Ge DM 8 0 M 2 


<< AMPER-' 


alors, suivie de son contenu entre 
parenthèses. Après le . tapez 
alors la donnée, cette fois-ci sans er- 
reur … 


Stockage de texte (;) 


Il est parfois utile de mettre des ca- 
ractères ASCII directement en mé- 
moire, comme on entre des octets 
par la commande ” :”. Pour cela, on 
tape l'adresse, un point-virgule, et le 
mot ou la phrase que l'on veut sto- 
cker en mémoire : 


2004;CECI EST UN EXEMPLE 


Tous les caractères, y compris les es- 
paces seront rangés à partir de 
l'adresse specifiée, jusqu’au dernier 
caractère qui précède le RETURN. Si 
l'APPLE est en mode INVERSE à ce 
moment, les caractères sont stockés 


en inverse (commandes ”l” pour In- 
verse et N°” pour Normal). 
Examen mémoire Hexa- 
ASCII (H) 


Cette commande permet de visuali- 
ser le contenu d’une portion de la 
mémoire en hexadécimal et en 
ASCII. Tapez la première adresse à 
examiner, puis ’H”. L'ordinateur af- 
fiche alors 22 lignes comportant 8 
octets et leur représentation ASCII : 


2000H 


2000- A9 00 A2 FF C3 C5 C3 C9 )8" CECI 
2008- A0 C5 D3 D4 AO DS CE A0 EST UN 
2010- C5 D8 C5 CD DO CC CE 26 EXEMPLES 
2018- 53 38 AS 952 ES 54 AA AS SBYXRFT#Y4 
2020- 53 90 06 ...... 


Le bit de poids fort est ignoré; les ca- 
ractères de contrôle sont affichés en 
clignotant. Un “H” non précédé 
d'une adresse affiche les 22 lignes 
suivant celles du dernier H normal. 
Les adresses de $C000 à $COFF 
sont automatiquement sautées, car 
elles ne correspondent pas à de la 
mémoire et leur lecture” acciden- 
telle est dangereuse pour les pro- 
grammes qui se trouveraient en RAM 
à cet instant. Appuyer sur la barre 
d'espace affiche les 22 lignes suivan- 
tes. N'importe quelle autre touche re- 
vient en mode commande. 











NDLR: il n'est pas tout-à-fait vrai que 
le bit de poids fort soit ignoré. Faire 
pour le voir ‘FOR 1-0 TO 255: 
POKE 8192+11: NEXT l”, puis 
2000H sous le moniteur. 


Recherche d’octets (/) 


Cette commande permet de recher- 
cher un octet ou une série d’octets, 
entre deux adresses. Donnez la pre- 
mière adresse à partir de laquelle 
vous désirez commencer à chercher, 


un point, la dernière adresse à exa-* 


miner, une barre de fraction (/), l’oc- 
tet ou la série d'octets que vous 
cherchez, et RETURN. 


F800.FFFF/20 ED FD 


Le moniteur va explorer toutes les 
adresses depuis $F800 jusqu’à 
$FFFF et afficher toutes les adresses 
ou il trouve la suite d’octets $20, 
$ED et $FD. Par exemple : 


F903,F91B,F923,F94C,FAE6,FAEC, 
FAF1,FD47,FD64,FD6C, FDB8, 
une FE46,FE4B,FE55,FF2F,FF34, 
FF37 


Notez que, là encore, le moniteur 
saute automatiquement les adresses 
de $C000 à $COFF. Notez aussi qu'il 
range votre liste d’octets dans le buf- 
fer clavier (en $200); ne soyez donc 
pas surpris qu'il l'y retrouve. 


Recherche de cartactères (”) 


Variation de la précédente, cette 
commande suit à peu près la même 
syntaxe : 


F800.FFFF”APPLE 
FBO9, 


Il est important de noter que le mo- 
niteur retrouvera un mot qu'il soit en 
NORMAL, en INVERSE, en FLA- 
SHING ou même en minuscules. Si 
vous n'êtes pas sûr de l'orthographe 
d'un mot, vous pouvez remplacer 
une, ou plusieurs lettres par ”=”. 


800.9600”ROU=E 


Dans ce cas, le moniteur retrouverait 
indifféremment ROUEE, ROUGE, 
ROULE, etc. Le signe =” est ce 
qu'on appelle en anglais un caractère 
"wild card”. 

Ne soyez pas surpris non plus que le 
moniteur retrouve la liste de caractè- 
res dans la mémoire associée à 


l'écran ($400—$7FF). 


Conversion en décimal ($) 


Tapez le nombre à convertir, un dol- 
lar, et RETURN. L'équivalent déci- 


mal est alors affiché, suivi de sa re- 
présentation en négatif s’il y a lieu : 


CO000$= 49152 (—-16384) 


Conversion en hexadécimal 


Tapez le nombre à convertir, le signe 
=” et RETURN. L'équivalent hexa 
est affiché, suivi de la conversion 
complémentaire si cela est possible : 


16384=$4000 (—16384=$C000) 


Addition et soustraction 
( a Un ) 


Ces opérations fonctionnent de la 
même manière que sous le moniteur 
d'origine, mais peuvent traiter des 
nombres de 16 bits (4 chiffres hexa) : 


1AF7+ C3B = 2732 
C080-—BFAF= 00D1 


La pause, ou point d'arrêt 
(P,0,X) 


Il est fréquemment utile de connaître 
l'état des registres à certains endroits 
du déroulement d'un programme, 
lors de sa mise au point par exem- 
ple. La méthode usuelle consiste à 
placer un break” (00) à l'endroit 
désiré, et à rétablir la valeur d’origine 
après son exécution. Ce moniteur 
propose une alternative moins pri- 
maire ; tapez l'adresse où vous dési- 
rez voir le programme s’interrompre, 


"P”, et RETURN 
2004P 


L’astérisque (le prompt) se met à cli- 
gnoter, signalant la modification de 
votre programme. Lors du lancement 
de celui-ci, tout se déroule normale- 
ment jusqu’à l’adresse du point d’ar- 
rêt. À cet instant, le contenu des re- 
gistres est affiché, le point d'arrêt est 
supprimé, le programme est restauré 
et l’astérisque arrête de clignoter : 


2004 A=00 X=FF Y=7 
P=NUV.BDIZC S=E7 


Remarquez l'affichage détaillé du re- 
gistre ”’P”. Chaque drapeau est re- 
péré par son initiale standard s’il est 
à 1, ou par un point s’il est à 0. Cet 
affichage est obtenu également lors 
de la commande ”CTRL-E”. 

Une seule pause peut être mise en 
place à la fois. Si vous oubliez 
l'adresse où vous avez placé un point 
d'arrêt, tapez ”’O” et RETURN pour 
retrouver cette adresse. Si vous 
changez d'avis et désirez supprimer 
un point d'arrêt sans exécuter votre 
programme, tapez ”X'” puis RE- 
TURN. 





Le moniteur mémorise l'adresse de 
la pause et son ancien contenu à 
partir de $2FB; il est donc primordial 
de ne pas toucher à ces adresses tant 
que la pause est en vigueur. Notez 
aussi que le point d’arrêt doit être en 
RAM. 


Le STEP, ou pas-à-pas (S) 


Comme son nom l'indique, cette 
commande permet d'exécuter un 
programme instruction par instruc- 
tion. L'adresse est tapée, suivie de 
?S”’ et RETURN : 


2000S 

2000— A9 00 LDA #$00 
A=00 X=32 Y=07 
P=...B..Z. S=E7 


Ensuite, il suffit d'appuyer sur la 
barre d'espace pour exécuter l’ins- 
truction suivante, ou sur n'importe 
quelle autre touche pour sortir de ce 
mode. Si aucune adresse n’est spéci- 
fiée avant le ”S”, l'adresse prise par 
défaut est celle rangée en $3A,$3B 
(PCL,PCH) lors d’un STEP antérieur 
ou d’un point d'arrêt par exemple. 
Ceci permet de partir en pas-à-pas 
immédiatement après une pause. 


La TRACE, ou pistage (T) 


Cette commande n'est autre qu'un 
STEP perpétuel, et obéit donc aux 
mêmes règles que celui-ci : 


2000T 


2000— A9 00 LDA #$00 
A=00 X=32 Y=07 
P=...B..Z. S= E7 


2002— A2 FF LDX #$FF 


2004— C3 


La vitesse de défilement est réglable 
par le paddle 0. Une pression sur le 
bouton fige l'écran afin de pouvoir le 
lire tranquillement; relâcher le bouton 
pour continuer. Appuyez sur n'im- 
porte quelle touche du clavier pour 
en sortir. Cela peut ne pas marcher 
si les poignées ne sont pas connec- 
tées. 


Utilisant les mêmes adresses en page 
zéro que les anciens STEP et 
TRACE, ces deux commandes souf- 
frent des mêmes contraintes : impos- 
sible de pister un programme qui uti- 
liserait les dites adresses. 


Le mini-assembleur (!) 


Voici une vieille connaissance ! Dis- 
ponible d’origine avec l'INTEGER 
BASIC, cette facilité est de nouveau 
à votre disposition. Il vous suffit pour 
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cela de taper un point d'exclamation 
(!) et RETURN. 

Son utilisation est décrite en détail 
dans le manuel de référence APPLE. 
Tapez "+ ” en début de ligne et RE- 
TURN pour revenir sous le contrôle 
du moniteur étendu. 


Copie en remontant, ou 
mode inverse (>) 


Il arrive assez souvent que l'on ait à 
déplacer un bloc mémoire de quel- 
ques octets vers le haut, la 
commande MOVE (M) est alors im- 
possible à utiliser car les premiers 
octets sont recopiés par-dessus” les 
suivants. Exemple : 


2005<2000.2100 


Dans cet exemple, les octets de 
$2000 à $2004 seront bien recopiés 
en $2005-$2009, mais la suite 
$200A—-$2105 contiendra également 
cette même série de 5 octets répétés 
sans arrêt. Pour remédier à ce pro- 
blème, utilisez la commande : 


2000.2100>2005 


Ne tapez pas M”, sous peine de 
plantage” catastrophique dans cer- 
tains cas; tapez tout de suite RE- 


publicité yves ruhimann mulhouse 
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TURN. Notez le choix des signes 
”<” et >” qui rappellent le sens 
dans lequel se fait le déplacement. 


La saisie des minuscules (K) 


Tapez tout de suite ”’K” et RETURN. 
Le curseur change pour vous signaler 
que vous avez quitté le fonctionne- 
ment habituel de votre clavier. À par- 
tir de ce moment, CTRL-S commute 
le mode ‘’minuscules” et CTRL-A 
commute le mode ‘’’majuscules”. 
Notez que le DOS est provisoirement 
déconnecté. Notez également que la 
modification de la touche SHIFT est 
reconnue. 


Sortie du moniteur (Q) 


Pour quitter le moniteur étendu et 
revenir au BASIC, tapez Q” et RE- 
TURN. Le DOS est alors connecté 
(= 3D0G); la saisie des minuscules 
n'est pas affectée; vous pouvez donc 
entrer des minuscules sous BASIC et 
sous DOS. 


Attention : RESET ou PR#n décon- 
nectent la commande ”’K” (plus de 
minuscules au clavier) ! 


"" 


LCL LL LOL 


D 
WI, 77 


x, 





Re-vectoriser le RESET (%) 


Si vous désirez pouvoir retomber 
dans le moniteur étendu par appui 
sur RESET, et que vous avez la 
ROM AUTOSTART, tapez %X”. Le 
moniteur étendu répond << RESET 
OK >>, c'est tout. Pour renvoyer le 
RESET au BASIC, dans le cas d’un 
48K avec le DOS, tapez : 


3F2 :BF 9D 38 


Tapez ensuite RETURN, c'est ter- 
miné. Remarque : la ROM Autostart 


déconnecte systématiquement l’es- 
pace $C800—$CFFF). 


NDER : il y a un léger ‘’bug” dans 
l'entrée du moniteur. Faire deux flè- 
ches à gauche puis taper sur les tou- 
ches "L” et "RETURN" avec ce mo- 
niteur et celui de l’Appplesoft donne 
des résultats différents. En fait, le 
buffer d'entrée est décalé d’un carac- 
tère par rapport à l'Autostart (faire 
NNN200L dans les deux cas pour 
voir) ; changer cet état de choses 
s'avère compliqué à la vue du 
source : nous ne l’avons pas fait. 


ee LS 
et 


e aa 
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LRU Big Mac 6: INSDSi $F882 détruit A,X,Y 





2 * * 64 K 62 INSDS2 = $FBBE 

3 + EXTENSION DU MONITEUR * 63 INSTDSP =  $F8DO détruit A,X,Y 
4 # DE L'APPLE II + * 64 PRNTVYX =  $F940 détruit À 

> # + 65 PANTAX = $Fg4i scétruit À 

6 # Thierry Le Tallec * 66 PRELNK =  $F948 “détruit A,X 
14 # 67 PRBL2 = $F94n 

D HE 68 PCADJ =  $F953 

9 69 PCADJ2 = $F954 

10 # [5 Mai 1983 70 PCADJS =  $F956 

ii 74 CHARI = $F9B4 

12 OR6 $8D00 : (CALL -29440) 72 CHAR2 = $F9Bû 

13 T3 MNEML =  $F9C0 

14 CH =  $24 74 MNEMR = $FA00 

15 BASL =  $4 75 RTEL =  $FBi9 

16 RTNL = $C 76 DREAD =  $FBIE détruit A,Y 
17 RTNH = $2) 77 INIT =  $FB2F 

1B FORMAT = $2E 78 UP =  $FCIA 

19 LENGTH = $2F 79 CLREOP =  $FC42 détruit A,Y 
20 "MODE = $3i 80 WAIT =  $FCAB samule À 
21 INVFLG =  $32 81 RDKEY = $FDOC 

22 PROMPT =  $3 82 ROCHAR =  $fD35 
25 YSAV = #34 83 GETÈNZ =  $FD67 

241 = $3, 84 MXTCHAR = $FD7S 
25 CSWL =  $3% 85 CROUT = $FDBE détruit A 

2 CSM = #7 Pour garder. les accents 86 PRAI 5 #7 sdétruit A,X,Y 
27 KSWL 5 3 dans les commentaires, 87 PREYTE = $FDDA détruit À 

28 KSWH = #39 nous avons mis l’impri- 88 COUT =  $FDED détruit A 
29 PCL = _#$z@ mante en mode français. 89 COUT{ =  $FDFO 

30 PCH = 4 Ainsi, ”£” signifie ’#”. 90 ELi =  $FE00 

3i XGT =  $x ; 91 BLANK =  $FEU4 

32 DPRAD =  $3C 92 SETMODE =  $FE1B 

33 Ait =  $i 93 LT =  $FE20 “détruit A,X 
34 A1H = #35 4 MOVE =  $FE2C 

35 AZ =  $#Æ 95 VFY =  #FE3 

36 A2H =  $F 9% LIST =  $FESŒ 

37 ASi =  $40 97 AiPC =  $FE75 

38 A3H = fai 98 AIPCLP =  $FE78 

39 A&t = $42 99 SETINV =  $FEBO 

40 A&H = $43 100 SETNORM =  S$CEB4 

4i FMT = $44 101 SETKBD = $FE89 

42 ACC = $45 102 INPRT = $FEBD 

43 XREG = $46 103 SETVID =  $FE93 

4h STATUS = $48 04 OUTORT =  $F£97 

45 TEMP =  $4n 105 XBASIC =  $FEBO 

46 DIGIT =  $E 106 BASCONT =  $FEB3 

47 RNDL = SE 107 60 =  $FEB 

48 RNDH =  $4r 108 LSR =  $FECA 

49 STARTFLG = $4F 109 WRITE =  $FECD 

50 INBUFF = $200 110 READ =  $FEFD 

51 QUIT = #30 115 RESTOR = $FF3F détruit A,X,Y,P 
92 SOFTEV =  $3F2 112 SAVE =  $FF4n “détruit 4 

33 AMPERSND =  $3F5 113 GETNUM = S$FFA7 scétruit A,X,Y 
J4 SHFTLOCK =  $77E 114 IMODE = $FFC7 | 
J9 MINFLAG =  $7FE 119 TR ON stronque le listing (col. 2) 
56 KBD =  $c000 116 

97 KBDSTRB =  $C010 117 #KF DÉBUT DU MONITEUR ETENDU #44 

58 SPKR =  $C030 1i8 

99 PUSHBO = $Co6i 119 START  LDA £XBAK revectorise le break 
60 SHIFT =  $C063 120 STA $3F0 


A RE 22277 2 
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121 
122 
123 
124 
125 
126 
127 
128 
123 
130 
131 
132 
133 SETSRMPT 
134 STERMPT I 
133 XONZ! 
136 

137 

138 

133 

140 

:4i 

142 

143 

144 MONZ2 
145 

146 

147 MONZS 
148 
143 
130 
151 
192 
153 
154 
155 
156 
157 
{58 
159 
160 
ii 
182 
163 
164 AXTITH 
165 

166 

167 CHSRCH 
168 

283 

170 

171 

i72 

173 

174 CRMON 
175 

:76 

:77 CRMONI 
178 

179 

180 CRMON2 


AON 


MONZ 


MONZ4 
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LDA 
STA 
JSR 
LDA 
JSR 
JSR 
CMP 
BNE 
LDA 
BNE 
DEC 
DEC 


£}XBRK 
$5F1 
SETVID 
SETKBD 
SETNORM 
INIT 


:PR£EO 
:IN£O 
NORMAL 
:TEXT 


BELL 
PROMPT 
SETPRMPT 
£$6A 
STPRMPT1 
Lx 
PROMPT 
CROUT 
PROMPT 
COUT 
RDCHAR 
gun 
MONTS 
AL 
MONZ2 
ax 
A3 
AIL 
£" n 
£" Li 
MONZ4 
AL 
ASH 
BRNTAN 


prompt = °8" ou “}" ? 

soui =} prompt = ‘#7 inverse. 
;non =} teste si pause 

; flashe ’# si oui. 

sinverse ?# sinon, 


“affiche le prompt 
et attend une touche. 


“touche espace ? 

non =} attenc une ligne 
oui =) affiche la prochaine 
; acresse 


: (raz Y) 
£"(" 
COUT 
(A3), 
PRBYTE 
€")" 
COUT ; 
£":" 
€! 
AXTCHAR+S 
IMODE 


et son contenu 


entre garentèses, 
““ode stockace d'octets 

‘siaulie la fin de GETLNZ 
attend la suite ce la commance 


1 (11 y a déjà eu une touche) 
GETNUM :lit une adresse 
vsay 


£SUBTBL-CHATEL :34 commances ! 


MON 
CHRTBL, V 
CHSRCH 
TOSUB 
YSAV 
NXTITH 
ge" 
CRMON! 
ADDITN 
£"-" 
CRMON2 
SOUSTR 
ge 


addition? 


:soustraction? 


stockage en mémoire? 


18i 

182 

183 CRMONS 
184 CRKON4 
185 

186 

:87 TOSUB 

188 


198 


CHRTBL 


258 
233 SUBTEL 
240 


NE 
JMP 
JSR 


LDA 
JAP 


DFB 


DFB 


CRAONS 
STORE 
BLI 
sajuste la piie 
MONZi 
Y=Y#2 
SUBTBL, Y 
sauve la partie haute 
SUBTBL+I,Ÿ et la partie basse 
‘de l'adresse (ordre). 
MODE 
IMODE 


#HHE TABLES DES ORDRES ET DE LEUR ADRESSE x##4 


# (CHR = commande XOR $30 + $09) 


$82148+9  :(ctri-Blasic 

$83:48+3  :(ctri-C} 

$85148+9  :(ctrl-Erxamine les registres 
$8B!48+3  :(ctri-K) 

$8D'48+9 :(RTN) 

$90!:48+5  s{ctri-P} 

$99148+9  :(ctrli-Y) 

“ *148+#9  ; (espace) 

"N148+9 (1) mini-assembleur 
"au148+9 = (") recherche en ASCII 
"$"148+9 :($) convertit en décimal 
“L"148+9 :(%) vectorise le reset 
"£"148+9 : (4) vectorise l’amgersand 
“+#148+9 + (+) 

"-#148+9 (-) 

n,"148+9 :(,) 

“/"188+9 :(/) recherche d'octets 
fit148+9 :(:) 

“s"148+9 (1) stockage de texte 
"{"148+9 :(() 

“2"148+9 :(=) convertit en hexa. 
"}*148+9 :(}) dépiace vers le haut 
“6"!148+9 (Go 

"H"148+9 : (H)exa/ASCII 


“1"148+9 : (inverse 

"K"148+9 : (Keyin minuscuies 
"L"148+3 :(L)ist 

"M"148+9 : (Move 

"N"148+9 : (N)ormal 

°C"148+9 : (O)bserve pause 
"p"t48+9 : (Plause 

"9" 148+9 :(Qluitte -} $3D0 
"R"48+9 : (R)ead 

"S"148+3 :(S)ten 

°7"148+9 ; (T)race 

"V":48+3 : (Vlerify 

"W"!48+9 : (Write 

"X"148+9 »(X) supprime la pause 
XBASIC-1 

BASCONT-1 


24: DDB REGDSA-1 300 STA SOFTEV+I 


242 DDB INPRT-I 301 EUR £$05 
243 DDB CRMON-! 302. STA SOFTEV+2 
244 DDB OUTPRT- 303 JER UP “remonte le curseur 
245 DDB USR-1 304 LDY £0 
246 DDB BLANK-1 305 PRMESSG2 LDA MESSG2,Y affiche ({ RESET OK }}+b1p! 
247 DDB MINIAGM-1 306 JSR COUT 
248 DDB SRCHASC-1 307 INY 
249 DDB PRDEC-1 308 CPY  £MESSG3-MESSG2 
250 DDR RSTVECT-1 309 BNE  PRMESSG2 
251 -DDB  AMPVECT-1 310 JMP BELL 
252 DDB SETMODE-1 sit 
3 DDB SETMODE-{ 312 #kkttk# STOCKAGE D'OCTETS #k#k4 
254 DDB SETMODE-1 313 
255 DDB SEARCH-1 Jié STORE  DEX :RTN précédé d’un octet ? 
256 DDB SETMODE-1 315 BNE STOR: 
257 DDR STORETAT-: 316 LDA AZ joui =) va le ranger 
258 DDB LT-1 3i7 STA (ASL),Y 
253 DDB PRHEX-1 318 JP  STOR2 
260 DDB MOVEUP-1 319 STORI  iDA A 
261 DDB 60-i 320 CMP AL 
262 DDB HEXASC-i 321 BEQ STOR3 soui =) conserve l'adresse 
263 DDB SETINV-:i 322 STOR2 INC AZ 
264 DDB LWINKEV-1 323 BNE STORS 
265 DDB LIST-1 324 INC ASH 
266 DDB MOVE-1 325 STORS INC Ai 
267 DDB SETNORK-1 326 JP CRMON4 
268 DDB OBSERV-1 327 
269 DDB PAUSE-1 328 #KHHEKE STOCKAGE DE TEXTE HF 
279 DDB QUIT-1 323 
271 DDB READ-1 330 STORETIT LDY €£0 tinitialise pointeur écriture 
272 DDB STEP-i 33: STORTATI LDX YSAV “récupère pointeur lecture 
273 DDB TRACE-1 332 LDA INBUFF,X lit caractère suivant 
274 DDB VFY-1 333 CHE £$8D retour chariot ? 
275 DDB WRITE-{ sat BEQ STORTXT2 oui =) fin 
276 - DDB SUPPAUSE-1 335 AND INVFLG 
277 336 STA (A2L),Y non =) range le caractère 
278 #44 RE-VECTORISE L'AMPERSAND #k4 337 INC YSAV ;caractère suivant 
279 338 INY 
280 AMPVECT LDA £$4C 333 BNE STORTITI : (saute toujours) 
281 STA  AMPERSND 340 STORTXT2 RTS 
282 LDA ÆSTART 341 
283 STA  AMPERSND+#1 JE2 HE HEXA/AGCIT DISDLOY tte 
284 LDA Æ£)START 343 
285 STA  AMPERSND+2 Jh4 HEXASC LDX €22 
286 JSR UP sremonte le curseur 345 STX XREG 
287 LDY £0 346 HEO LDY £0 
288 PRMESSG1 LDA MESSGI,Y affiche (( OK })+bip! 347 JSR PRA! affiche l'adresse 
289 JSR COUT: 348 HEÏ JSR PRSPACE : un espace, 
290 INY 349 LDA (AÏL),Y 
291 CPY £MESS52-MESSGI 350 JSR PRBYTE * un octet, 
292 BNE PRMESSGI 351 INY 
293 JMP BELL 352 CPY £8 
294 353 BNE HE! “recommence nuit fois 
295 ###4 RE-VECTORISE LE RESET *x4H#4 354 INC CH ceux espaces 
2% 359 INC CH 
297 RSTVECT LDA ÆESTART *à partir de maintenant, 3% LDY €0 
298 STA SOFTEV “reset renverra au moniteur. 357 HE2 LDA (AL),Y 
299 LDA £)START 358 CMD £€$20 inverse ? 
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360 DRA Æ€$c0 soui =} normal 

361 HES CMP  £$60 sclignotant ? 

362 BGE HE4 

353 ORA £$80 soui =} normal 

364 HE4 CMD  £$A0 scaractère de controie ? 
35 BGE #ES 

366 EDR £$c0 soui =} ciignotant 
367 HES JSR COUT ‘affiche ie caractère 
368 INY 

363 CPY £8 

370 BNE HE2 huit fois 

37: LDA ii 

372 ADC £7 avance de hult (carryzi) 
373 STR ii 

374 BCC HE7 

375 HEG INC AH 

376 HE7 LDA AH 

377 CMP  £$C0 

378 BEG #E6 ‘saute les adresses $COxx 
379 CMP  £$CF #$CFF8 ( AÏ ( $CFFF 7 
380 BNE HEB 

38! LDA AiL 

382 CMP £$F8 

383 BLT HEB 

384 iDA £0 soui =} Af=$D000 

385 STA il 

386 INC AIH 

387 HE8 DEC XREG 

338 BNE HEO 

389 JSR RDKEY 

390 CMP £°" 

391 BEG HEXASC 

392 RTS 

638 

639 HR POUSE HE 

640 

641 PAUSE  LDA (AÎL),Y sauve 3 octets 

642 STA INBUFF+253,Y ;dans le buffer 
643 LDA JSRPAU,Y les remplace 

644 STAR (AÏL),Y  ;par "JSR XPAUSE" 
645 LDA AiL-1,Y 

646 STA INBUFF+250,Ÿ :sauve aussi l'adresse 
647 INY 

648 CPY #3 

649 BNE  DAUGE 

650 LDA £$6A ; (# clignotante) 
651 STA PROMPT 

652 RTS 

653 

654 JSRPAU JSR XPAUSE 

655 

656 XPAUSE JSR SAVE ‘sauve les registres 
657 PLA 

658 SEC 

659 SBC £2 

660 STA PCL même le compteur pgn, 
661 PLA 

662 SBC £0 





663 STA PCH 

664 JSR SUPPSEO  :remet les 5 octets 
665 JSR CROUT 

666 LDX PEL 

667 LDY PCH 

668 JSR PRNTYX affiche l’adresse 
669 JSR RGDSPI ‘affiche ies registres 
670 JMP MON et retour au moniteur, 
671 

672 #### SUPPRESSION DE LA PAUSE #4## 

673 

674 SUPPAUSE LDA PROMPT 

675 CMP  £$6A y-at-il une pause ? 
676 BNE SUPPSE2 non =} retour 

677 SUPPSEO LDA INBUFF+251 

678 STA RNDL 

679 LDA INBUFF+252 

680 STA  RNDH 

681 LDY £2 sremet les trois octets 
682 SUPPSE: LDA INBUFF+253, Y 

683 STA  (RNDL),Y 

684 DEY 

685 BPL  SUPPSE 

686 LDA £'# 

687 STA PROMPT 

688 SUPPSE2 RTS 

689 

690 #k#kx AFFICHAGE DE L'ADRESSE #4##4 

691 

692 OBSERV JSR CROUT mouvelle ligne 

693 LDX  INBUFF+251 

694 LDY INBUFF+252 

695 JP PRNTYX 

696 

697 #k#x AFFICHAGE DES REGISTRES ##x4 

698 

699 REGDSP JSR CAOUT nouvelle ligne 

700 RGDSPI LDA &#7 

701 STA CH 

702 LDA Æ&ACC 

703 STA AS 

704 iDA 40 

705 STA AH 

706 LDX Æ&$FB 

707 RDSPI  JSR PREPACE  :affiche un espace, 
708 LDA RTBL-$FB, X | 
709 JSR COUT : " le no du registre 
7i0 JSR PREGUAL affiche "=", 

711 LDA ACC+5,X 

712 CPX £$FE exception pour P 
713 BNE  RDSP2 | 

714 LDY £8 

715 NXTFLG  ASL sun flag dans la carry 
716 PHA :sauve le reste 

717 BCC NOTSET 

718 LDA FLGNAM-1,Y 

719 BNE DSPFLG 

720 NOTSET LDA £&"." 

721 DSPFLG JSR COUT saffiche le flag 
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722 PLA 897 JSR UP ‘à la ligne supérieure 
723 DEY 838 

724 BNE NXTFLG 899 OREQUAL LDA £"=" affiche un “= 

725 BEG RDSP3 900 GOCOUT JMP COUT et revient 

726 RDSP2 JSR PRBYTE 501 

727 RDSP3S INK 902 PRSOACE LDA £" * 

728 BMI RDSPI 903 BNE  GOCOUT 

723 JP CROUT srevient par ’ return’ 904 

T30 FLGNAM ASC *“CZIDB.VN" 905 PRCOMMA LDA £°," 

847 906 BNE GOCOUT 

848 #HtkEEREEE ADDITION HE 907 

849 908 PRNTDOL LDA £"$" 

850 ADDITN CLC 509 BNE  GOCOUT 

851 LDA AIL 910 

852 ADC AZ 911 CLOSBRAC :DA £'5" 

853 STA A 312 BNE  GOCOUT 

854 LDA A1 913 

855 ADC A2# 914 OPENBRAC LDA £'°" 

856 STA Ai 9i5 JSR COUT 

857 FINADD JSR UPCURSOR remonte Le curseur 916 LA £"-" 

858 LDX AI 9i7 BNE GGCOUT 

859 LDY AH 1090 

860 JSR  PRNTYX 1091 ##kkt SAISIE DES MINUSCULES #KHH 

861 JP  MONZ 1092 

862 1093 LWINKEY LDA £NEWCOUT  :modifie les entrées/sorties 
863 HHHEHHHE SOLGTRACTION HUE 1094 STA CS 

864 1095 LDA £)NEWCOUT 

865 SOUSTR SEC 1096 STA CSWH 

866 EDA AIL 1097 LDA £NEWKEYIN 

867 SBC A2L 1098 STA KSWL 

868 STA AL 1099 LDA £)NEMKEYIN 

869 LDA Aix 1100 STA KSWH 

870 SBC A2 1101 LSR MINFLAG  ymazuscules par défaut 
871 STA Aix 1102 RTS 

872 CLC 1103 

873 BCC £INADD 1104 NEWKEYIN PHA ssauve l’ancien caractère 
874 1105 NKO LDA (BASL),Ÿ regarde ce cui est affiché 
875 ##### NOUVEAU SON DE CLOCHE tt 1106 AND £$DF 

876 1107 CMP £$DF c'est le curseur ? 

877 BELL LDX £$FF 1104 BEQ AK 

878 BElii  LDA £$58 1:09 LDA &"_" non =} met-le ! 

879 BELL LDY £$18 1110 BIT SHFTLOCK 

880 BE:L3  DEY itfi BPL NK2 

881 BNE BEL DS 1112 LDA £$F curseur spécial en minuscules 
882 BIT SPKR if13 BMI NK2 (saute toujours) 

883 TAY 1114 NK! PLA récupère l’ancien caractère 
884 BELL& DEV 1115 FHA 

885 BNE BELL4 1116 NK2 STA (BASL),YŸ affiche le caractère 
886 SBC £i 1117 NK3 INC RNDL sincrémente le compteur 
887 BEQ BEiit 1118 BNE NK4 saute si pas cédordé 
888 BIT SPKR 1:19 INC RNDH 

889 DEX 1120 LDA RAD 

890 BNE BELL2 1121 AND £$3 

891 RTS srevient AVEC X=Y=0 1122 CMP Æ£$01 “délai écoulé ? 

892 1123 BCC KO oui =} échange curseur/caractère 
893 #### ALIGNEMENT DES RESULTATS #44 1124 NK4 BIT KBD touche enfoncée ? 

8% 1125 BPL NK3 non =} avance tempo 

895 UPCURSOR LDY YSAV 1126 PLA 

8% STY CH ;positionne Île curseur 1127 STA (BASL),Y restaure l’afficnage 
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1128 LDA 
ii BIT 
1130 CMP 
1131 BNE 
1132 TA 
1133 NEXTKEY LDA 
1134 JP 
1:35 CTRLA  CWP 
1136 BNE 
1137 LSR 
1138 BPL 
11439 NOLOCK BIT 
1140 BEL 
1141 STY 
1142 LDY 
1143 TRYCCDE DEY 
1144 BMI 
1145 CMP 
1146 BNE 
1147 LDA 
1148 NOCHANGE LDY 
1149 CMP 
1:50 BEQ 
1151 CMD 
1152 BEQ 
1153 CMP 
1154 BEQ 
1155 BIT 
1156 EPL 
1157 CMP 
1158 BLT 
1159 ORA 
1160 NOSHIFT PHA 
li6t CMP 
1162 BNE 
1163 LDA 
1164 NOARRON CMP 
1165 BLT 
1166 STA 
1167 ENDKEY  PLA 
1168 RTS 
1169 

1170 RETURN  LSR 
1i7i RTS 
1172 

1173 KTBLI  DFB 


1174 KTBL2  DFB 


1176 NEWCOUT BIT 
1177 BPL 
1178 LDA 
1179 LSR 


KBD shit le clavier 

KBDSTRB sacquitte le clavier 

2593 sctri-S 7 

CTRLA 

SHFTLOCK oui =) 3asse en “minuscules 

(BASL) ,Y 

NEWKEV IN 

€s8i sctri-A 7 

NOLGCX 

SHFTLOCX oui =) passe en majuscules 

NEXTKEY 

SHFTLOCX ‘on est en minuscules ? 

NOSHIFT son =) saute 

RNDL “oui =} sauve Ÿ 

£KTBL2-KTBL1 

NOCHANGE 

KTBLI,Ÿ trouvée dans la table ? 

TRYCODE mon =) boucle Y fois 

KTBL2,Y  soui =} lit correspondance 

RNDL “récupère Ÿ 

£$8D sretour chariot ? 

RETURN 

£$98 sctri-X 7? 

RETURN 

£$93 ‘escape ? 

RETURN soui =} passe en majusc, 

SHIFT touche shift appuyée ? 

NOSHIFT voui =) ne convertit pas 

£'a" 

NOSHIET ne convertit que les lettres 

£$20 “convertit en minuscule 
Ysauvegarce le bon code 

£$95 c'est la fiêche ’-}? 7 

NOARROH 

(BASL),Y oui =) lit l'écran 

£$c0 c'est une ninuscule ? 

ENDKEY 

MINFLAG “oui =) positionne le drapeau 
srevient avec le vrai code 
set retour 

SHFTLOCX  :nasse en majuscules 
set revient. 

"80, ii "à" 

“me, "nt, “pu 

MINFLAG “c'est une ainuscule ? 

NORMOUT nan =} affiche telle quelle 

MINFLAG oui =} affiche ia minuscule 

MINFLAG raz du crapeau 





1180 STA INBUFF,X :range dans le buffer clavier 
1181 NORMOUT JMP COUTI 

1182 

1183 #### COPIE EN REMONTANT #HHHHEH# 

1184 

1185 MOVEUP STA MODE ne touche plus A 

1186 JSR LT ‘recopie A2 cans 4 

1187 LDY . YSAV srécupère pointeur lecture 
1188 JSR GETNUM lit la destination 

1189 DEY 

1190 STY YSAV “sauve pointeur lecture 
1191 SEC 

1192 LDA A&L scalcule ia longueur 

1193 SBC AIL “de la zone à déplacer 
194 STA AI 

1195 LDA A&H 

1196 SBC A{H 

1:97 STA AH 

1198 CLE 

1199 LDA AR en déduit la dernière 
1200 ADC AZ ‘adresse écrasée 

1201 STA AZ 

1202 LDA A3h : (on commence gar la fin) 
1203 ADC AH 

1204 STA ASH 

1205 LDY €0 

1206 MOVEUPI LDA (AGL),Y copie un octet 

1207 STA (ASL),Y 

1208 DEC AGL :décrémente pointeur source 
1209 LDA Ai 

1210 CMP £$FF 

f211 BNE #4 

1212 DEC AH 

1213 DEC AS : et pointeur destination 
1214 LDA AH 

215 CMP £$FF 

1216 BE #+#4 

1217 DEC ASH 

1218 LDA AL stest de fix ce déplacement 
1219 CMP AL 

1220 LDA A4H 

1221 SBC B1H 

1222 BCS MOVEUPI boucle si A4 )= A 

1223 RTS 

1224 

1225 HHHHHHH MESSAGES HF 

1226 

1227 MESSGI INV " AMPERGAND CK " 

1228 HEX 8D 

1229 MESS62 INV " RESET OK “ 

1230 HEX 6D 


1231 MESSGS HEX FF 





Pom’s s’adresse à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées ou des programmes à transmettre aux autres. 
Nous vous prions de nous les faire parvenir afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal 
est de nous envoyer une disquette avec vos programmes et un article en traitement de texte (Applewriter I ou II, ou tout 
fichier TEXT) sur disquette et si possible aussi imprimé, au cas où nous aurions du mal à le récupérer. N'oubliez pas 
d'indiquer votre adresse et votre numéro de téléphone ! 
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MONITEUR : 
Récapitulation 


#8D00. 951E 


8D00- AY E2 BD FO 03 A9 91 8D 
8D08- Fi 05 20 93 FE 20 89 FE 
8D10- 20 84 FE 20 2F FB DB 29 
BDi8- 73 92 24 33 30 04 A9 6A 
8D20- 70 02 A9 2A 85 33 20 &E 
8D26- FD A5 33 20 ED FD 20 35 
8D30- FD £9 DE D0 OC A5 40 DO 
8D358- C2 C6 41 C6 40 CG 3C 

8D40- AO C9 A0 DO 19 AB 40 45 
8D48- 41 20 41 F3 88 A9 AB 20 
8D50- ED FD B1 40 20 DA FD A9 
8D58- AS 20 ED FD A9 BA A2 0! 
8D60- 20 78 FD 20 C7 FF C8 20 
BD68- À7 FF 64 34 A0 26 88 30 
8D70- AS D9 AA 8D DO F8 20 9a 
8D78- 8D A4 54 4C 67 BD C9 PB 
8D80- DO 03 4C 4F 92 C9 AD DO 
8D88- 05 4C 63 92 C9 BA DO C3 
8D30- 4C 60 8E 20 00 FE 68 68 
8238- D0 8C 98 0A AB E3 DO D 
8DAO- 48 59 Di BD 48 AS 31 4C 
8DR6- C7 FF BB BC BE Cé C6 99 
8DBO- B2 99 9A 9B 9D SE 9F 
8DB8- A6 A7 AB 93 34 95 96 97 
8DC0- 00 01 02 O4 05 06 07 08 
8DC8- E9 EA EB EC ED EF FO F1 
8DDO- FE AF FE B2 95 2B FE @C 
8DD8- 8D 7D FE 96 FE C9 FE 03 
BDEO- 93 4A 8F 46 8F CO BE 3D 
8DE8- GE 1B FE 17 FE 17 FE 17 
8DFO- 8E F3 FE 17 BE JA FE 1F 
8DF8- 30 2E 94 B7 FE BS 8 &F 
8E00- FE 75 94 02 FE SD FE 2R 
BE0B- FE 83 91 iF 90 C2 03 CF 
8E10- FE FC 91 9B 91 75 FE 35 
BE18- FE CC 91 00 A9 4C 8D F5 
8E20- 03 A9 00 8D 76 C3 A9 D 
8E28- 8) F7 03 20 :A FC AO 00 
8E30- B3 O4 95 20 FO FD C8 C0 
BES8- OF D0 F5 4C 79 92 03 0 
8E40- 8D F2 05 A9 BD 8D F3 03 
BE4B- 43 RS 8D F4 03 20 1A FC 
8E50- A0 00 B9 13 95 20 SD FD 
BE58- C8 CO O0B DO F5 4C 79 92 


8£60- CA DO 07 95 3E 91 40 4€ 
BE68- 70 BE ÀS 40 C5 3C FO ®@ 
8E70- E6 40 DO 02 EB 41 E6 3C 
8E78- 4C 96 8D RO 00 A6 34 BD 
8E80- 00 02 C3 8D FO 09 25 32 
8E88- 31 SE E6 34 C8 DO EE 60 
8E90- A2 16 86 46 AQ 00 20 92 
8E98- FD 20 A0 92 Bi 3C 20 DA 
8ERO- FD C8 CO 08 DO FS £6 24 
8EA8- E6 24 A0 00 Bi 3C C3 20 
8EB0- BO 02 09 CO C9 60 BO 02 
BEBB- 09 80 C3 A0 E0 02 43 C9 
8EC0- 20 ED FD C8 CO 08 DO £4 
BEC8- AS 3C 63 07 85 3C 90 02 
8EDO- £b 3D AS 3D C9 CO FO F8 
BED8- C3 CF DO OC AS 3C C9 F8 
BEEO- 90 06 A9 00 85 3C E6 3D 
SEEB- CE 46 DO A4 20 OC FD CS 


8EFO- AO FO JD 60 85 31 84 4A 


BEF8- 20 20 FE A4 34 20 A7 FF 
8F00- 84 34 A& 4A 4B A5 3E 99 
8F08- 00 02 E6 4A 68 C9 93 FO 
8F10- ERA 48 ÀS 42 85 SE AS 43 
8Fi8- 85 3F 20 8E FD A0 00 Bi 
8F20- 3C D9 00 02 DO OF CB C4 
8F28- 4A DO F4 AG 3C AG 3) 20 
8F30- 40 F9 20 A4 92 20 AO 8F 
8F38- 90 ES 68 C9 AF FO 02 CB 
8F40- 34 20 C7 FF 4C 8E FD B4 
8F48- 4A A4 34 B3 00 02 C3 BD 
8F50- DO 02 A9 CO £6 34 A4 4 
8F58- 48 29 3F 99 00 02 E6 4 
8F60- 68 C3 A2 FO O4 C9 AO BO 
8F6B- EO 20 8E FD C6 4A AC 00 
8F70- B9 00 02 FO OF Bi 3C C9 
8F78- Eû 90 02 29 1F 29 3F 29 
8F80- 00 02 DO OF C8 C4 4A DO 
8F88- E7 A6 3C A4 37 20 40 F9 
8F30- 20 A4 92 20 AO 8F 90 DE 
BF38- C6 34 20 C7 FF 4C 8E FD 
8FA0- A5 3C C5 3E AS 3D ES 
BFAB- 08 EG 3C DO 02 E6 3D A5 
8FBO- 3D C9 CO FO FB C9 CF DO 
BFBB- 06 AS 3C C9 FF FO EA 28 
8FCO- 60 20 94 92 20 42 FC 20 
8FC8- 20 FE 20 ED &F A9 7F CS 
8FDO- 43 B0 19 20 48 F9 20 B0 
8FDB- 92 A9 00 58 ES 42 85 Æ 
8F£0- A9 00 ES 43 85 3F 20 ED 
BFEB- 8F 20 AC 92 60 A2 O4 86 
8FFO- 4F A9 BO 85 4€ A5 SE DD 
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8FF8- 25 90 AS 3F FD 24 90 90 
3000- 0D 85 3F A5 3E SD 25 90 
3008- 85 3E EG 4E DO E7 AS 4 
30610- £8 CA FO 0A C9 BO F0 02 
3018- 85 4F 24 4F 10 03 20 ED 
3020- FD CA 10 CD 60 0! 04 64 
3028- E8 10 00 00 00 03 27 A3 
3030- 00 85 3C 85 3D A4 34 88 
3058- 10 OF K3 00 02 38 E9 B0 
3040- 30 OA C3 OA RO 06 99 00 
3048- 02 88 10 EE C8 84 SE 84 
3050- 4A A4 3E B3 00 02 50 1F 
3058- 20 BE 90 65 3C AR A3 09 
3060- 65 3D A8 20 BE 90 20 BE 
3068- 90 88 65 3C 85 3C 98 65 
3070- 3D 85 SD £6 3€ 90 DA CE 
3078- 34 20 9% 92 20 42 FC E6 
3080- 34 20 AB 92 96 32 A4 3D 
3088- 20 40 F9 A9 7F C5 3D & 


‘090- 2C 20 48 F9 20 BO 92 A4 


3038- 4A B9 00 02 30 08 09 E0 
3040- 20 ED FD C8 DO F3 20 ©D 
S0RB- FD 20 A8 92 A9 00 38 ES 
30B0- 3C AA A9 00 ES 3D AB 20 
30B8- 40 F9 20 AC 32 60 06 3 
30C0- 26 3D 60 B1 3C 99 FD 02 
30C8- B3 DD 90 91 3C B3 3B 09 
30D0- 993 FA 02 C8 CO 03 DO EB 
S0D8- 89 6R 85 33 60 20 EC % 
30£0- 20 4A FF 68 38 E9 02 85 
30E8- SA 68 E9 00 85 3B 20 07 
30F0- 91 20 8E FD A6 5A P4 3B 
30F8- 20 40 F9 20 2F 9i 4C 16 
3100- 8D A5 33 C9 6A DO 13 AD 
3:08- FB 02 85 4E AD FC 02 85 
3110- 4F A0 02 B9 FD 02 91 4° 
3118- 88 i0 F8 A3 2A 85 33 60 
9120- 20 8E FD AE FB 02 AC FC 
9:28- 02 4C 40 F9 20 8E FD 09 
3130- 07 85 24 A9 45 85 40 A9 
3138- 00 85 41 A2 FB 20 A0 92 
3140- BD 1£ FA 20 ED FD 20 9B 
3:48- 92 BS 4A E0 FE DO 16 A0 
3150- 08 0A 48 90 05 B9 6D 91 
3:58- DO 02 A9 AE 20 ED FD 68 
9160- 88 DO £E F0 03 20 DA FD 
3168- EB 30 D2 4C 8E FD C3 DR 
370- C9 C4 C2 AE D6 CE A9 01 
3178- 85 31 20 9C 91 A2 00 20 
9180- {E FB 98 49 FF C3 08 90 
3188- 03 20 AB FC AD 61 CO 30 
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3190- FB AD 00 CO 10 EQ &D 10 
3198- CO 4C 16 8D 20 75 FE 20 
3:A0- DO FB 68 85 2C 68 85 2) 
3:1A8- A2 08 BD 46 32 95 3C CA 
91B0- DO F8 Ai 3A FO 2C A4 2F 
3iB8- C3 20 FO 43 C9 60 FO # 
91C0- C9 40 FO 46 C9 6C FO 45 
31C8- C3 40 FO 1F 29 iF 43 {4 
3iD0- C9 04 FO 02 B1 SA 99 SC 
9:D8- 00 68 10 F8 20 3F FF 4C 
31E0- 3C 00 20 82 FB 20 2F 91 
3E8- 4C i6 8D 16 68 85 48 68 
JFO- 85 3A 68 85 3B A5 2F 20 
31F8- 56 F9 84 3B 18 90 14 18 
3200- 20 54 F9 AA 38 48 8A 48 
3208- A0 02 18 Bi 3A AA 88 Bi 
93210- 3A 86 3B 85 3A 80 F3 A5 
3218- 2D 48 AS 2C 48 20 2C 91 
3220- À5 31 DO 0E AD 00 CO 10 
3228- FB 2C 16 CO C3 AO DO 02 
3230- C6 34 60 18 AO O1 Bi 5A 
3238- 20 56 F9 85 3A 98 58 BO 
3240- B2 20 4A FF 38 RO AE EA 
3248- EA 4C 4i 92 4C 33 92 18 
3250- A5 SC 65 3E 85 3C A5 3D 
9258- 65 3F 85 3D 20 %4 32 
3260- 3C A4 5D 20 40 F9 4C {A 
3268- 8D 38 AS 3C ES 3E 85 3 
3270- AS 3D E5 5° 85 30 18 90 
3278- ES A2 FF A9 58 A0 !R 88 
3280- DO FD 2C 50 CO A8 88 DO 
3288- FD E9 O1 FO EE 2C 30 C0 
3230- CA DO EA 60 F4 34 84 24 
3238- 20 1A FC A9 BD 4C ED FD 
3280- A9 AO DO F9 A9 AC DO F5 
3288- A3 A4 D0 Fi 9 DD DC ED 
3230- A9 DB 20 ED FD A9 AD DO 
9288- E4 ES 8i 44 DO 14 A4 3F 


Abonnez-vous à Pom'’s 


92C0- A6 3E DG 0! 88 CA 8A i8 
92C8- ES SR 85 3E 10 Oi CB 98 
32D0- ES 3B DO 6B A4 2F E3 3D 
32D8- 09 9i 3A 88 10 FB 20 1A 
92E0- FC 20 1A FC 20 D F8 20 
92E8- 53 F9 84 3B 85 SA 4C 4&E 
32F0- 93 20 9A 8D A4 34 20 A7 
92F8- FF 84 34 AO 1F 88 30 4B 
9300- DS AA 8D DO F8 C9 CE DO 
9308- E8 A5 31 AO 00 C6 34 20 
3510- 00 FE 4C 4E 93 A5 3D 20 
95i8- 8E F8 AA BD 00 FA CS 42 
9520- DO 13 BD CO F3 C5 43 DO 
3328- OC ÀS 44 AG 2E CO JD FO 
9530- 88 C5 2E FO 9F C6 3D DO 
9338- DC E6 44 C6 35 FO D6 A4 
3540- 34 98 AA 20 4A F9 AG DE 
9348- 20 ED FD 20 73 92 24 3 
9530- A9 21 50 02 09 40 85 33 
9558- 20 67 FD 20 C7 FF AD 00 
9560- 02 C9 AA DQ 03 4C 16 BD 
9568- C9 AC FO 13 C8 C3 A4 F9 
9570- 85 88 20 87 7€ C9 93 DO 
9378- CB 8A F9 C5 20 78 FE A3 
3580- 05 85 32 20 FA 93 CA £9 
3588- BE C3 C2 90 B4 0A OR R2 
3390- 04 09.26 42 26 43 CA i0 
9338- F8 C6 SD FO F4 10 E4 A2 
95%0- (5 20 “A 93 84 34 DD B4 
33P8- F3 20 i3 20 FA 93 DD BA 
3330- 9 FG QD BD B4 F9 FO 07 
3588- C3 F4 FO 03 F4 34 18 88 
FC0- 26 44 20 03 DO CD 20 A7 
9SC8- FF 05 3F FO Of E8 86 35 
53D0- 42 63 88 86 5D CA 10 C3 
35258- 45 44 OA GA 05 35 C9 20 
33:0- BO 06 A6 35 F0 02 C3 89 
S3E8- 85 44 84 54 B9 00 02 C3 


33F0- BE FG 04 C9 8D 20 80 4C 
S3F8- 15 93 B3 CO 02 C8 C3 A0 
9400- FO F8 60 À9 A7 85 56 A3 
9408- 94 85 37 A9 17 85 38 A3 
94:0- 94 85 39 4E FE 07 60 48 
S4:8- B1 28 29 DF C9 DF FO 0B 
3420- AG DF 20 7€ 07 10 06 A9 
3428- FF 30 02 68 48 31 28 E6 
uiQ- 4€ 70 09 E6 4F AS 4F 29 
3436- 5F ©3 C1 90 DB 2C 00 C0 
4G- 10 ED 68 91 28 AD 00 CO 
9448- 2C 10 CO C9 93 DO 08 8D 
HS0- 7E 07 Bi 28 4C 17 94 C9 
3458- 81 90 GS 4E 7E 07 i0 F2 
9ueQ- 2C 7E 07 10 28 84 4E A0 
3468- 03 88 30 08 D3 A1 %4 DO 
%470- F8 B9 A4 94 A4 4E C9 BD 
9478- FO 23 C9 98 FO 1F C3 3B 
3480- FO 18 20 63 CO ‘0 06 C3 
9488- CG S0 02 09 20 48 C9 55 
435- D0 02 Bi 28 C9 EC % 03 
5498- 82 FC 07 68 60 4E 7E 07 
9A0- 60 OD DE CO CD CE DO 2€ 
34R8- FE 07 20 09 AD FE 07 4 
JaBG- <£ 07 D 00 02 4C FO FD 
94B8- 85 3 20 20 FE A4 4 20 
JaCG- 27 -F BB 64 354 38 À5 42 
9éC8- ES 3C 85 40 AS 43 ES SD 
DG- 85 41 18 AS 40 65 SE 85 
34C8- 40 À5 41 65 SF 85 4i A0 
36=G- 06 21 42 91 40 CB 42 À 
JEB- 42 C9 FF DO 02 C6 45 C6 
HG 49 AS 40 [9 FF DO 02 C6 
S4F6- 41 05 42 CS SC ÀS 43 ES 
3500- 3D BO DE 60 20 01 OD 19 
9508- 05 12 3 01 0E 04 20 OF 
9510- 9B 20 8D 20 12 95 13 © 
55:8- 14 20 OF 0B 20 8D FF 


La vie de votre revue dépend de son nombre d'abonnés. Plus vous êtes nombreux. plus nous pouvons vous 
rendre service, par l'augmentation correspondante de nos movens comme par le plus grand nombre de contribu- 
tions que nous recevrons. forcément de vous. Nous avons volontairement choisi une politique de disquettes à bon 
marché : ainsi, lorsque vous vous abonnez avec disquettes, chaque disquette vous revient à moins de 45 francs 


TTC, port compris ! Un abonnement à quatre numéros coûte aujourd'hui 295 francs. Cela ne sera-t-il pas large- 
ment amorti si une seule des 200 pages de texte que vous trouverez en quatre numéros vous résoud ce pro- 
blème sur lequel vous séchez (on a vite fait de perdre deux ou trois jours sur un problème) ? Dans de nombreux 
numéros, nous vous avons offert des programmes comparables à céux qui sont vendus de 250 à 500 francs dans 
les boutiques. Profitez-en ! 
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Vous avez un Apple ou 
un ordinateur personnel IBM. 

Beaucoup de logiciels 
sont utiles. 

Celui-ci est indispensable. 


PFS Gestion de Fichiers : 


Permet en un minimum de manipulations et … Fichier, copie totale ou partielle du Fichier, 
de temps de créer votre Fichier (clients, ajout de nouvelles fiches, suppression, re- 
fournisseurs, stock, bibliothèque, etc). cherche et mise à jour, recherche et édition. 


eTrès nombreuses possibilités de recherche: Best-seller aux États-Unis, plus de 150.000 
nombreux critères de sélection applicables programmes vendus. 

à plusieurs zones du Fichier en même temps. PFS Gestion de Fichiers peut être complété 
par PFS Report (programme de tri et d'édi- 
tion de listes et calculs) et PFS Graph (pro- 
gramme d'édition sous forme de graphi- 
eAutres fonctions: modification du dessin du ques, histogrammes, parts de gâteau, etc.). 








eNombreuses possibilités d'édition (fiches, éti- 
quettes, mailings, etc.). 


Bon de commande 


À retourner à Médipost 45212 Montargis Cedex - Tél. (38) 85 54 73 





Je commande PFS Fichier [ Apple Il ou Il E APPLE II! ou IBM PC 
PRIX PAR 
PFS Report [] 
PFS Graphc1 PROGRAMME 1095F + TVA = 1298,67F | 1475F + TVA = 1749,35F 








Fonctionnant pour Apple Il [, Apple Il EC], Apple Ill 1 et IBM PC CO] (sauf PFS Graph) soit un total de 


Règlement à la commande : Chèque bancaire [] Chèque postal [1 à l'ordre de Médipost 


Nom __ _ _ _ Société __ 








Adresse _ 





Date Signature 


Une facture acquittée sera jointe à votre livraison. 
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Cet article est complémentaire de 
celui publié dans le Pom's 4. Il pré- 
sente une autre façon de gérer des 
fichiers selon le principe de la ”’table 
de référence” (ou table d'index) et 
des fichiers de données à Accès Di- 
rect. 


Ainsi que vous pourrez le constater 
en examinant le programme, ou en 
l'utilisant, les procédures de ‘’menu”, 
de saisie et de contrôle des données 
sont réduites à leur plus simple ex- 
pression : nous ne nous intéresserons 
ici qu'aux aspects spécifiques de la 
gestion des fichiers. 


Principes généraux 


Les données sont stockées dans un 
fichier à accès direct (FIC). Chaque 
enregistrement de ce fichier corres- 
pond à un ’article” et chaque article 
est repéré par une clé unique et stric- 
tement personnelle (nom d’un client, 
numéro de code d'un produit...) 
Dans notre exemple, la clé se 
compose de 6 caractères alphanumé- 
riques quelconques. 

Pour retrouver un enregistrement à 
partir de sa clé, il faut constituer une 
table d'index qui donne, en face de 
chaque clé, l'adresse de l’enregistre- 
ment correspondant dans FIC (aug- 
mentée de 1000 dans notre exem- 
ple). Ainsi, un élément de la table est 
une variable V$, avec : 

LEFT$(V$,6) valeur de la clé et 
VAL(MID$(V$,7,4))-1000 adresse de 
l'enregistrement. 


Les éléments de cette table doivent 
être classés dans l’ordre alphanumé- 
rique. Pour en retrouver un dans la 
liste, on utilise une procédure de re- 
cherche dite dichotomique. 


La question qui se pose maintenant 
est de savoir comment sera stockée 
cette table et où s’effectueront les 
opérations de recherche. 

Dans le Pom's 4, nous avons abordé 
la solution consistant à stocker la 
table dans un fichier séquentiel. Ce 
fichier est lu intégralement en mé- 
moire centrale au début des traite- 
ments et recopié à la fin. Toutes les 
opérations de recherche s'effectuent 
en mémoire. 

Cette solution permet des recherches 
et une mise à jour de la table très 
rapides, en cas d'ajout ou de sup- 
pression. Par contre, elle impose de 
lire la table intégralement chaque fois 
qu'on lance les traitements et surtout, 
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Notions de base : 
gestion de fichiers 


si les clés sont longues et nombreu- 
ses, elle pose des problèmes de satu- 
ration de la mémoire centrale. 


L'alternative envisagée ici consiste à 
stocker la table d’index dans un fi- 
chier à accès direct (TAB). Ceci per- 
met d'effectuer les recherches sur 
disquette (toujours selon les principes 
de la recherche dichotomique) et de 
libérer une capacité mémoire non 
négligeable. 

Evidemment, la recherche d’une clé 
donnée est légèrement plus lente, 
mais c’est surtout pour la mise à jour 
de la table que le temps de traite- 
ment risque de subir une dégradation 
sensible. Pour ajouter une clé dans la 
liste, par exemple, il faut ‘’reculer” 


toutes celles qui lui sont supérieures; 
si elles sont nombreuses, et compte 
tenu des performances du DOS, on 
pourrait parfois attendre bien plus 
d'une minute avant de passer à l’arti- 
cle suivant. 


Une autre solution consiste à avoir 
une table d’index qui indique, pour 
chaque article, la position du précé- 
dent et celle du suivant dans l'ordre 
alphabétique. La recherche d'un arti- 
cle donné est alors plus longue, mais 
la mise à jour plus rapide. En effet, 
l'insertion d’un article, par exemple, 
ne nécessite la modification que de 
l'index des articles entre lesquels le 
nouvel article doit s’insérer. 


PESDENTPMNENNENRE CNE TMIRE PER ET 
thédesasitsiistiitesée EEE TESE 


Gérard Michel 


Pour réduire la portée de ce pro- 
blème, nous utilisons ici une mini- 
table de référence en mémoire (pour 
les créations notamment) et un déca- 
lage des mises à jour sur disquette 
par rapport aux traitements courants. 


Variables Principales 


Les variables principales sont listées 
dans l’ordre de leur apparition dans 
le programme. 


Ki, K2, Af : indices et variable cou- 
rants 

NC: nombre d'éléments dans la 
table tampon” en mémoire cen- 
trale. 





S$ : clé, complétée par des blancs si 
nécessaire. 

NT: nombre d'éléments dans la 
table sur disquette. 

N$ : tableau des clés en mémoire. 

PL®% : liste des adresses libres dans 
le fichier FIC (libérées par une an- 
nulation). Cette liste est stockée 
dans un fichier séquentiel. 

TD: nombre de clés annulées sur 
disquette au cours d’une phase de 
traitement. 

NL: nombre d'adresses libres dans 
FIC. 

NZ: nombre d'éléments vivants” 
dans la table sur disquette. 

ZK: indique la position virtuelle 











d’une nouvelle clé dans la table 
sur disquette. 

À : utilisé pour la re-création de clés 
annulées. 


Analyse du programme 


Dans tous les cas, la clé entrée au 
clavier est tout d'abord recherchée 
sur la disquette. Si elle existe, on si- 
gnale une éventuelle annulation an- 
térieure (ligne 350). Si elle n'existe 
pas, on la cherche alors en mémoire, 
après avoir noté sa position virtuelle 
sur disquette (ligne 360). 


1) Création d’un article (homony- 
mes interdits). La limite de 50 impo- 
sée au nombre de créations sans 
mise à jour sur disquette dépend en 
fait, bien sûr, du niveau de saturation 
de la mémoire (ligne 390). 

Le principe consiste à faire la mise à 
jour uniquement sur la table en mé- 
moire (à la restriction ci-dessus près) 
pendant le traitement lui-même. Les 
créations peuvent ainsi s’enchaîner 
sans délai d’attente sensible entre 
chacune d'elles (lignes 410 et 420). 
S'il s’agit de la re-création d’une clé 
préalablement annulée, celle-ci est 
simplement  réécrite intégralement 
(clé plus adresse de l’article) à sa 
place dans la table sur disquette 
(ligne 405). Aucune autre mise à jour 
n'est nécessaire pour ce type de 
création, ni sur disquette, ni en mé- 
moire. 


Les données sont ensuite enregis- 
trées à l’adresse R dans FIC. 


2) Modification et consultation 
d’un article. Ces deux opérations 
ne posent guère de problèmes, dans 
la mesure où l’on sait déjà comment 
retrouver la clé et l’article qui lui cor- 
respond. 


3) Annulation. La limite de 50 im- 
posée au nombre d'adresses libres 
gardées en mémoire appelle la 
même remarque que pour les créa- 
tions. 

L’annulation d'une clé qui se trouve 
dans la table tampon (clé créée au 
cours de la même exécution du pro- 
gramme) est prise directement en 
compte (ligne 520). Cette clé ne sera 
donc pas recopiée sur disquette en 
fin de traitement. 

Si la clé se trouve dans la table per- 
manente, on remplace simplement 
l'adresse de l’article correspondant 
par À, sans procéder au décalage de 
la table (ligne 510). 


4) Fin de traitement 

Nous abordons maintenant le pro- 
blème principal, du moins en ce qui 
concerne le temps de traitement, à 
savoir la mise à jour de la table sur 
disquette. 

S'il s’agit de la toute première phase 
de création, cependant, il suffit de re- 
copier directement la table tampon 
dans TAB (ligne 212). 


Dans le cas contraire, il faut insérer 
les nouvelles clés dans la liste d’in- 
dex, en respectant l’ordre alphanu- 
mérique. Nous vous proposons, à 
titre d'exemple, deux solutions possi- 
bles : 

- La première consiste à décaler les 
enregistrements du fichier TAB lors- 
que cela est nécessaire, exactement 
comme on le faisait en mémoire cen- 
trale (lignes 215 et 220 du pro- 
gramme de base). 

- La seconde utilise un fichier inter- 
médiaire (TB2), constitué progressi- 
vement par la copie séquentielle des 
éléments de TAB entre lesquels vien- 
nent s'intercaler, le cas échéant, les 
clés de la table tampon. 

Pour une même dimension du fichier 
TAB, le choix entre ces deux solu- 
tions dépend surtout du nombre de 
clés à insérer; la première est plus ra- 
pide si ce nombre est faible (sauf si 
elles viennent majoritairement en tête 
de liste), et inversement pour la se- 
conde. Il est d’ailleurs possible d’utili- 
ser les deux dans le même pro- 
gramme et de choisir en fonction 
d’un test sur la valeur de NC. 


En ce qui concerne les annulations, 
le traitement assure ’l'écrasement” 
des clés marquées d’un A {ligne 
280). Cette opération peut être réali- 
sée à l'issue des annulations elles- 
mêmes, ou de façon indépendante 
quand aucun travail plus urgent ne 
l'interdit. 





Programme FICHIERS 


1 ONERR GOTO 3000 


S GOTO 100 


38 REM 
39 REM xxx 26 26 36 26 26 36 36 26 26 3 2 
* RECHERCHE DICHO. 
# EN MEMOIRE 
De 46 D DE DE DE DE DE D DE 6 D 20 DE DE 26 DE 96 
40 K1 = 1:K2 = NC: IF NC - 
RETURN 
41 K = INT C(K1 + K2) / 2) 
CNSCK),6): IF SS = A 
- 1: RETURN 
42 IF S$ < AS AND K2 > K1 
s K: GOTO 41 
43 IF SS < AS THEN RETURN 
44 IF K2 > K1 + 1 THEN Ki 
45 K = K + 1: IF S$S > LEFT 
THEN K = K2 + 1 
46 IF S$S = LEFTS (NS(K2), 
— 1:K = K2: RETURN 
47 RETURN 
48 REM 
43 REM nm 2e 26 2 2 98 26 26 36 2 3 2 3 
* RECHERCHE DICHO. 
* SUR DISQUETTE 
2e 2 De 26 26 DE 26 D DE 26 D 6 D DE D DE 26 6 
50 K1 = 1:K2 = NT: IF NT = 
RETURN 


51 K = INT CCK1 + K2) / 2): PRINT RTS:K 
: INPUT NS:AS = LEFTS (NS,6): IF 
S$ = AS THEN K1 = - 1: PRINT RU 
8: RETURN 
S2 IF SS < AS AND K2 > K1 + 1 THEN K2 = 
Fa K: GOTO S1 
: S3 IF S$S < AS THEN PRINT RUS: RETURN 
# S4 IF K2 > K1 + 1 THEN K1 = K: GOTO 51 
à 5S K = K + 1: PRINT RTS:K2: INPUT Née: IF 
SS > LEFTS (NS,6) THEN K = K2 + 
O THEN K = 1: 1 
56 IF S$ = LEFTS (N$,6) THEN K1 - =" 
:AS = LEFTS :K = K2: PRINT RUS: RETURN 
S THEN Ki = 57 PRINT RUS: RETURN 
38 REM 
+ 1 THEN KZ? = 933 REM ve 2 2 6 26 2e 6 2e m6 26 3e 36 26 26 
* DEBUT PROGRAMME * 
HONMUNNNONDE DEM DEDEM D 
= K: GOTO 41 
S CNS(K2),6) 
100 BLS = ‘* “":DS = CHRS (4):D1S = 
6) THEN K1 = CHRS (13) + DS:OTS = D1$ + “OPE 
NTAB,L11'":RTS = DS + ‘“READTAB,R": 
UTS = DS + "“WRITETAB,R":OFS = D1s 
+ “OPENFIC,L1OO0":RFS = DS + ‘REA 
LS DFIC,R'":WFS = DS + “WRITEFIC,R" 
” 105 OLS$ = D1$S + “OPENPL'"':RLS = DS + "REA 
# DPL'":WLS = DS + "WRITEPL":CLS = D 
: S$ + “CLOSE":RUS = DS + ‘“PR£O" 


©O THEN K = 
118 REM 





52 


110 DIM NS(S50O),PL#%(50) 
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PRINT WTS#;:0: PRINT NZ: PRINT NT: PR 
INT CLS: PRINT OL$: PRINT WLS: PR 
INT NL: FOR I = 1 TO NL: PRINT PL 
%(I): NEXT : PRINT CLS: END 

IF ZZ%x = S THEN 260 

REM 


REM 06 062 3636 36 36 36 38 36 D De 26 De 2 2 


# RECHERCHE CLE * 


CELELLLELLLELLEILLLLE SE) 


ZK = O'A = O: 
E “:SS:5SS = 
GOSUB 50: 
(NS,7) = 
SA = 
80 

IF K1 > © THEN ZK = K: GOSUB 40 
ON ZZ% GOTO 380,430,430,430 
REM 
REM 66e 06 06 0 06 2 26 36 26 36 26 D 36 36 6 2 
* CREATION * 


MONO M NE D D DE D D 26 D DE D M EE 


INPUT ‘VALEUR DE LA CL 
LEFTS (S$S + BLS,6): 
IF Ki = - 1 AND MIDS 

“A THEN PRINT ‘ANNULE® 

K: ON ZZ% GOTO 400,180,180,1 


IF K1 = - 
JA": 
IF NC = 


1 THEN PRINT 
GOTO 180 
SO THEN PRINT 
NS...PATIENCE": 
PRINT RUS 
FOR I = 1 TO S: 
NEE "“:2YS(I1): NEXT 
1: IF NL > O©O THEN 
= NL - 1 
IF À > O THEN NS = 
+ RD: PRINT WTS;A: 
O 425 
IF K < = 
STEP - 


"EXISTE DE 


“*’MAJ CREATIO 
GOSUB 210:NC = O: 
INPUT ‘VARIABLE/DON 
:R = NZ + NC + 
R = PL%(CNL):NL 


STR$S (1000 
GOT 


5S + 
PRINT NS: 


NC TO K 
NEXT 


NC THEN 
1:NSCL + 1) = 


FOR L = 

NS(L): 

NC = NC + 1:NSCK) = S$ + STRS (1000 
+ R) +  STRS (CZK) 

PRINT WFS:R: PRINT S$: FOR I = 1 TO 
5: PRINT ZYS(I): NEXT : PRINT RU 
$: GOTO 180 

IF Ki > © THEN PRINT 


GOTO 180 


"N’EXISTE PAS 
REM 
REM 


wo D D De De De 26 DE DE DE 6 6 D D 2 6 6 


* LECTURE DONNEES * 


HORMONE M D D DE 26 JE JE DE D D D 6 6 


NS: IF ZK > O©O THEN 2$ = 
= VAL ( MIDS (Z$,7,4)) - 1000: PR 
INT RFS:;R: INPUT S$: FOR I = 1 TO 

S: INPUT ZYS(1): NEXT : PRINT RU 

S: FOR I = 1 TO S: PRINT ‘DONNEE 
“"ZYS(I1): NEXT : ON ZZ% GOTO 380,4 
60,470,480 

REM 

REM 60 06 0 0626 0628 2 9 98 8 08 2 DE 26 2 

* MODIFICATION * 


RAMMNNN NN D M M NEO D HE D 6 M 


NS CK) 


"NOUVELLE DON 
GOTO 425 


INPUT 
NEXT : 


FOR I = 1 TO S: 
NEE “;:2YS8(I): 

REM 
REM we ce 0 2e 3e 06 38 06 2 28 6 26 38 3e 
* CONSULTATION * 


RRHRHHHRRERMNHNNREN RER R 


PRINT : 
: GET ZS: 


PRINT ‘“FRAPPEZ UNE TOUCHE"; 
GOTO 180 


119 REM #m%mmmœmmxe 2e 96 2e 2e 2 2 2 2 2 310 
#* OUVERTURE DES * 
* FICHIERS » 
26 28 D 06 96 DE DE DE DE DE ED DE 96 D 26 DE 28 26 
340 
120 Z% = 1:NC = O:TD = O:Z = O: PRINT OT 348 
$S: PRINT RTS;:O0: INPUT NZ,NT 349 
130 Z% = O: IF Z = 5 THEN NZ = O:NT = © 
140 2% = 2:2Z = O: PRINT OL$: PRINT RLS: 
INPUT NL 
150 2% = O: IF Z = S THEN NL = O: GOTO 1 350 
70 
160 FOR I = 1 TO NL: INPUT PL%(I)D: NEXT 
170 PRINT DS'"CLOSEPL'": PRINT OFS$S: PRINT 
RUS:2 = O 
180 PRINT : PRINT : PRINT ‘“1-CRE. 2-M0 360 
D. 3-CONS. 4-ANN. 5S-MAJ ANN. 370 
6-FIN‘";: GET ZZ$: PRINT : PRINT : 378 
22% = VAL (ZZS): IF 22% < 1 OR Z 379 
Z% > 6 THEN 180 
190 IF 22% < 6 THEN 340 
198 REM 
199 REM me 6 36 26 26 36 36 36 36 26 36 26 3 8 2 380 
* FIN TRAITEMENT *# 
MRRMONNRNOMN MMM NN DE 28 NM 2 330 
200 IF NC = O THEN 230 
205 GOSUB 210: PRINT RUS: GOTO 230 400 
208 REM 
209 REM wwe 26 36 36 36 3 36 36% 3 6 M 
#* MISE A JOUR DES * 
* CREATIONS * 405 
26 26 DE D DE 26 26 D DE DE DE D DE D DE DE DE D 2 
210 IF NT > © THEN 215 419 
212 PRINT DS'CLOSETAB'": PRINT OTS: FOR 
I = 1 TO NC:Z$S = LEFTS CNS(I),10 
>: PRINT WTS;1l: PRINT ZS:NZ = NZ 420 
+ 1:NT = NT + 1: NEXT : RETURN 
215 FOR I = 1 TO NC:K = VAL € MIDS (NS ve 
(12,11) + I - 1: IF K < = NT TH 
EN FOR L = NT TO K STEP - 1: PR 430 
INT RTS:L: INPUT Z$: PRINT WTS;:L 
+ 1: PRINT 2$: NEXT 438 
220 NZ = NZ + 1:28 = LEFTS (NS(I),10):N 439 
T = NT + 1: PRINT WTS:K: PRINT 2$s 
: NEXT I: RETURN 
230 IF TD = O©O THEN 310 
240 INPUT “OK POUR M.A.J. ANNULATIONS ‘“ 440 
:2$: IF Z$S < > “O" AND 2S < > "“ 450 
N'' THEN 240 
250 IF Z$S = “N'" THEN NZ = NZ - TD: GOTO 
310 
238 REM 
2593 REM ex je 2 26 26 3 36 26 36 2 
# MISE À JOUR DES #*# 458 
* ANNULATIONS * 459 
DD DE D D DE 26 26 DE D 6 D 26 DE DE 26 06 36 D 
260 R = 1: IF NT = O OR NZ = NT + TD THE 
N 310 460 
270 PRINT RTS:R: INPUT Z2$: IF MIDS (ZsS 
»7) < > “A THEN 290 468 
280 NT = NT - 1: IF R < = NT THEN FOR 469 
L = R TO NT: PRINT RTS;:L + 1: INP 
UT Z$: PRINT WTS:;:L: PRINT Z$: NEX 
T 
230 R = R + 1: IF R < = NT THEN 270 470 
300 NZ = NT 
Litres eee SERRE 
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478 REM 
479 REM ue 2 6 06 96 06 06 26 26 26 06 06 2 26 


* ANNULATION * 


MO MED DE DE DE M6 DE Dé 6 6 6 6 36 D 3 


480 IF NL = 5O THEN PRINT “CAPACITE PL 
ACES LIBRES ATTEINTE‘: GOTO 180 

490 PRINT “TAPEZ ‘O0’ POUR ANNULER":: GE 
T Z$: PRINT : IF ZS < > ‘“O“ THEN 
180 

S00 NL = NL + 1:PL#%#(CNL) = R: PRINT WFS:R 
5: PRINT “ANNULE‘": IF ZK > O THEN 
520 

S10 PRINT WTS;K:NS = LEFTS (NS,6) + "A 
“3 PRINT NS$: PRINT RUS:TD = TD + 
1: GOTO 180 








MILOG s'adapte à vos besoins S20 PRINT RUS:NC = NC - 1: IF K < = NC 
z . z e THEN FOR L = K TO NC:NS(L) = Ns 
Matériels: choix, décision (L + 1): NEXT 
530 GOTO 180 
89398 REM 
APPLE Ile Promotion 8999 REM #xæmem ee 9e 2 #2 2 92 22 2 2 
APPLE III NOUS consulter de * ROUTINE ONERR # 
GOUPIL 3 ds a HORMMNN NN D D 8 2 D 9 SE JE 26 3 2 
COMMODORE VIC 20 coffret promotion 3 150 F 
M 9000 2 = PEEK (222): IF Z = 5 AND Z% = 
850 F TTC : 1 THEN 130 
6 800 F TTC #H 9010 IF Z = 5 AND Z%x = 2 THEN 150 
prix : nous consulter 2: 3020 PRINT PEEK (222): PRINT CLS 
nous consulter ss 
promotion carte Z 80 colonnes pour Apple + nous consulter 
IMPRIMANTES 
EPSON RX-80 e EPSON FX-80 e CENTRONIC e 
SANCO e PRAXIS TE 
LOCATION APPLE Ile ere Programme FICHIERS 
4 (variante) 
De nouveaux programmes performants. 
Des solutions pour le dossier médical. 
Nombreux logiciels et progiciels professionnels ou de jeux. 199 REM venmmmmmmmmmm mm 
* M.A.J. CREATION * 
* SOLUTION NO 2 * 
* REMPLACE --»>220 * 
DEPOT-VENTE HHHMMNNN NM M NE M NE M NE M 
Vendez votre micro dans notre boutique 
200 IF NC = O©O THEN 230 
" 205 GOSUB 210: PRINT RUS: GOTO 230 
Nr 210 IF NZ > O THEN 215 
OLIVETTI 1450 212 PRINT DS'CLOSETAB'": PRINT OTS: FOR 
: I = 1 TO NC:2$ = LEFTS (NS(I),10 
GOUPIL 2 2): PRINT WTS:1: PRINT ZS:NZ = NZ 


+ 1:NT = NT + 1: NEXT : RETURN 
215 LL = 1:NN = NT:NT = O:NZ = NZ + NC: 
PRINT D1S"OPENTB2,L11": FOR I = 1 


FORMATION TO NN: PRINT RTS;1: INPUT NS:SS 
Initiation au basic et utilisation de progiciels. = LEFTS (NS,6):AS = LEFTS (NS(L 
L),6): IF SS < = AS OR LL > NCT 
FOURNITURES DIVERSES HEN Z$ = NS: GOTO 222 
BIENS 3M-Multiset - Rubans - Listings, etc. 220 2$ = LEFTS (NS(LL),10):LL = LL + 1: 
I=I-1 
CREDIT BAIL : 222 NT = NT + 1: PRINT DS"WRITETB2,R":NT 
: PRINT Z$: NEXT I: IF LL > NC TH 
EN 226 
A BIENTOT CHEZ-: 224 FOR I = LL TO NC:NT = NT + 1:ZS = 
MILOG informatique : ea Une RE 
PACOROR CE Tate) 226 PRINT CLS: PRINT D$"DELETETAB": PRI 
75008 PARIS - Tél.: 293.53.38 NT DS"RENAME TB2,TAB": PRINT OTS: 





PRINT OF$: RETURN 


ERA TE 


SRÉMAFEENPPTET LS uBRTE 
É< 


L'EST NSERERTE ST 
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Si vous êtes lassé de recevoir les messages d’erreur du 
DOS en anglais, voici un petit programme qui vous per- 
mettra de les franciser. Les messages habituels apparais- 
sent en anglais un par un; il vous reste à indiquer à cha- 
que fois le message en français que vous voulez utiliser à 
sa place. Dès la fin du programme, les nouveaux messages 
d'erreur sont opérationnels,et mémorisés sur la disquette 
dans le fichier MESSAGE; leurs positions sont enregistrées 
dans le fichier TABLE. 


Sauvegarde du DOS 


Si vous venez d'utiliser ce programme pour modifier les 
messages du DOS, il vous suffira d’initialiser une disquette 
comme d'habitude pour que son DOS soit modifié en 
conséquence, sous réserve que la longueur totale de vos 
messages soit restée inférieure à 202 caractères. Si celle-ci 
est supérieure à 202 caractères mais inférieure ou égale à 
252, vous ne pourrez pas initialiser une disquette avec ce 
DOS mais vous pourrez charger les messages en français 
en "BLOADant” TABLE et MESSAGES. 


Chargement des messages 


Si vous désirez à un moment donné modifier les messages 
d'erreur du DOS par ceux que vous avez créés avec ce 
programme, il suffit de mettre la disquette sur laquelle se 
trouve la table dans le lecteurs et de faire "BLOAD 
TABLE”. A partir de ce moment, vous pouvez vérifier que 
les nouveaux messages sont actifs. 


Vérification des messages 


Supposons que vous ayez un programme verrouillé bap- 
tisé HELLO, un programme integer INTEX, et que le nom 
de fichier ZZZ ne soit pas utilisé. Voici les messages habi- 
tuels que vous devez recevoir, en essayant les exemples 
non exhaustifs indiqués ci-dessous. 


OPEN ZZZ Not direct command 

LOAD ZZZ File not found 

SAVE Z7ZZ,V49 Volume not found 

SAVE ZZZ,S9 Range error 

BLOAD HELLO File type mismatch 

INT Syntax error (si non chargé) 
LOAD INTEX Language not available 
SAVE HELLO File locked 


Avec une disquette protégée contre l'écriture : 
SAVE ZZZ Write protected 

Après avoir enlevé la disquette : 

SAVE ZZZ l'O error 

En mettant une disquette pleine : 

SAVE ZZZ Disk full 


NDLR : faites BLOAD TABLE POM'S et BLOAD MESSA- 
GES.POM'S avec la disquette d'accompagnement de 
Pom's. Vous aurez un échantillon de ce que l'on peut ob- 
tenir en essayant ces exemples. 


eme 


ERSVATSES D IPRE SO Mo SDS TS PEER AR2 
a 2 si _— lité. dt: ét 


Se de dé 27 2 VE dE ae 
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Francisez le DOS 


Philippe Krepper 


INUTILE DE CHERCHER L'AUTRE 


&ouT « JE L'ai œoUPE |! 





Q REM ##** DOS.ERREUR ##* 
#*## APPLE 48 K ##* 
#wx AVEC DOS ### 
1 TEXT : HOME : VTAB 5: PRINT ‘ AVEC LE 
PROGRAMME SUIVANT VOUS ALLEZ 
POUVOIR TRADUIRE LES MESSAGES D’E 
RREUR DU S.E.D EN FRANCAIS , MAI 
S L'ENSEMBLE DE VOS MESSAC®FS NE 
DOIT PAS DEPASSER 252 CARACTER 
ES." 
2 PRINT : PRINT ‘“ ET SI L’ENSEMBLE DE 


VOS MESSAGES NE DEPASSE PAS 2 
02 CARACTERES ALORS LES NOUVEAU 
X MESSAGES SERONT ENREGISTRES 
DANS UNE ZONE MEMOIRE DU S.E. 
D ET TOUTES LES DISQUETTES 
INITIALISEES" 
3 PRINT ‘ À LA FIN DE CE PROGRAMME CON 
TIENDRONT LES MESSAGES FRANCAIS. 
“: PRINT : PRINT ‘“ POUR COMMENCER 
APPUYEZ SUR UNE TOUCHE": POKE 
- 16368,0 
5 DATA “LANGUAGE NOT AVAILABLE",'"RANGE 
ERROR",""WRITE PROTECTED‘","END OF 
DATA‘“,"FILE NOT FOUND'",'"VOLUME MI 
SMATCH"“,"1/0 ERROR","DISK FULL"," 
FILE LOCKED‘“,"SYNTAX ERROR",'"NO B 
UFFERS AVAILABLE'","FILE TYPE MISM 
ATCH'",'"PROGRAM TOO LARGE" 
7 HIMEM: 38143: DIM AS(15),B$(15): FOR 
L = 1 TO 15: IF L = 2 THEN L = 3: 
DATA ‘NOT DIRECT COMMAND" 


10 READ BS(L): NEXT L:E = 3:B = 3: WAIT 
- 16384,128: HOME : POKE - 163 
68,0: FOR L = 1 TO 15: PRINT “MES 


SAGE ERREUR NO:";L;: 
N PRINT “,3"::L = 3 
20 INVERSE : PRINT : PRINT : PRINT BS(L 
2: PRINT : NORMAL : INPUT ‘’NOUVEA 
U MESSAGE ";AS(CL):X = LEN CAS(L) 
): IF X = O©O THEN AS(L) = BS(L)D:Xx 
= LEN CAS(L)): PRINT : PRINT "JE 
PRENDS ‘’":BS(L);"’": PRINT ‘COMM 
E NOUVEAU MESSAGE": 
25 B = B + X:E = E + LEN (CBS(L)): IF B 
> 252 THEN PRINT : PRINT ‘VOUS N 


IF L = 2 THE 
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*AVEZ DROIT QU’A 252 CARACTERES ! 


“>; CHRS (7): FOR T = 1 TO 2500: N 
EXT T: RUN 
PRINT : IF B > E THEN PRINT “VOUS A 


VEZ DEJA UTILISE “;B - 3; CARACT 
ERES": PRINT “ALORS QUE LE S.E.D 
N’EN UTILISE QUE “;E - 3: GOTO 35 
PRINT “VOUS N’AVEZ UTILISE QUE “:B - 
3;" CARACTERES": PRINT “AU MEME 
NIVEAU LE S.E.D EN UTILISE “:: IF 

B < E THEN PRINT : PRINT “DEJA 


NEXT L:A 


= 43377:Q 
: IF B > 205 THEN A = 


38144:Q 


À 

A 

C = INT CA / 256):D = A - (C * 

56): POKE 42762,D: POKE 42763,C 
: POKE A,13: POKE À + 1,7: POKE A 
+ 2,141:A = À + 3: FOR L = 1:TO 

15: IF L < > 2 THEN FORM=11T 

O LEN (CAS(L)): POKE A, ASC € MID 

$ CAS(L),M,1)):A = A + 1: NEXT M: 
POKE À - 1, PEEK (A - 1) + 128:B 
= B + LEN (CAS(L)) 

POKE 43584 + L,B: NEXT L: 

B S:XS$S = “* VOUS POUVEZ 
ER VOS MESSAGES" 

IF C = 163 THEN PRINT ‘“ VOUS N’AVEZ 
PAS DEPASSE 202 CARACTERES VOUS 
POUVEZ DONC CONSERVER LES NOUVEA 

UX MESSAGES SIMPLEMENT EN INITIAL 
ISANT UNE DISQUETTE OU ALORS‘:XxsS 

PRINT XS$S;:'" EN SAUVANT LA TABLE ET 

LES MESSAGES ET EN LES FAISANT 

CHARGER PAR VOTRE PROGRAMME D 
E SALUTATION'": IF C < > 163 THEN 

PRINT ‘“ ET ENFIN EN Y AJOUTANT 
LES INSTRUCTIONS SUIVANTES:": INV 
ERSE : PRINT : HTAB 3: PRINT “HIM 
EM:38143:POKE42762,";D;":POKE4276 
3,";:cC 

NORMAL : PRINT : POKE - 16368,0: PR 

INT ‘“ VOULEZ VOUS QUE JE SAUVE L 
ES MESSAGES ET LA TABLE (CO/N)D":: 
GET RS: IF R$ = “O" OR R$ = “O" 
THEN PRINT : PRINT CHRS (4)‘"BSA 
VE TABLE,ASAASF,L16": PRINT CHRS 
(4) "BSAVE MESSAGES,A";Q:",L";:B 


HOME : VTA 
CONSERV 


HOME : PRINT ‘ANCIENS MESSAGES /“*:: 
INVERSE : PRINT ‘"/ NOUVEAUX ME 
SSAGES": NORMAL : IF C = 169 THEN 
HIMEM: 38400 
FOR L = 1 TO 15: IF L = 2 THEN L = 3 
X = LEN CBS(L)) + LEN CAS(L)): IF 
X > 33 THEN 120 
PRINT BS(L);:: INVERSE : HTAB 41 - 
LEN CAS(L)): PRINT AS(L);: GOTO 1 
40 
PRINT BS(L)::Y = LEN (AS(L)):2Z = 
LEN (BS(L)):W = 40 - Z: FOR M = W 
TO 1 STEP - 1: IF MIDS (AS(L), 
M,1) < > ‘ “ THEN NEXT M 
INVERSE 


* LECTEURS DE BADGES COMPTABILITÉ GÉNÉRALE | 130 WS =  LEFTS Ç(AS(L),M - 1)2:YS =  RIGH 
DISQUES MAINTENANCE TS (AS(L),Y - M): HTAB 41 - LEN 
(WS): PRINT WS:: HTAB 41 - LEN « 
YS): PRINT YS: 
DEFENSE MNT Escssssereeere 
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Saisie de réels en Pascal 


Philippe Chemin 





La procédure Pascal que je vous Touches Bloc numérique NDLR : la procédure PREEL de Mi- 
propose autorise la saisie de réels, du clavier chel Crimont (Pascal à 12 chiffres) 
hors exposant, mais avec pavé nu- 7 8 9 7 8 9 fait la même chose, mais sans le 
mérique. Celui-ci est formé par le ie L0 4 5 6 pavé et de façon moins interactive. 
bloc de touches à partir de 7”, ”8” J KL 1 2 Par contre, elle permet l’utilisation 
et 9” sur un clavier QWERTY. Il est M 0. d'exposants. 
facile de modifier le programme à ’ 
votre convenance si vous possédez 
un clavier AZERTY, ou si vous préfé- 
rez situer le bloc ailleurs. 
PROGRAM ESSAI; CONT:="’; 
VIRG:=0; 
TYPE CHOIDECA=SET OF CHAR: POSITIF:=TRUE; 
GOTOXY(X,Y): 
VAR TEST:REAL; WRITE(*’ *’:LMAX); 
HOME,BS,CR, SON,ESC:CHAR:; GOTOXY(X,Y); 
POINTEXISTE : BOOLEAN: REPEAT 
PAVE : BOOLEAN: IF LENGTH(CONT)=0 
THEN S11(1]:=PRENCAR(OKSET+[CR,°-°1) 
PROCEDURE PRINFO: ELSE IF (LENGTH(CONT)=LMAX) OR (VIRG=DECI) 
BEGIN THEN S1111:=PRENCAR([(CR,BS) ) 
BS:=CHR(8); ELSE 1F POINTEXISTE 
HOME: =CHR(12); THEN S1(11:=PRENCARCOKSET+ (CR, BS]J) 
CR:=CHR(13): ELSE S1(1]:=PRENCAR(OKSET+r[ICR,BS,’.°,°,°3); 
SON:=CHR(7): 1F Si(1)1=ESC THEN SORTIE; 
ESC:=CHR(27) ; IF S1(1) IN OKSET+[’.°,°-°1 
END; (*PRINFO®*) THEN BEGIN 
CONT : =CONCAT(CONT,S1): 
FUNCTION PRENCAR(BONSET : CHOIDECA) : CHAR; IF S1(1) IN (’-’1 THEN POSITIF:=FALSE; 
VAR CH  :CHAR: IF (8111) <> ’.’) AND (POINTEXISTE) THEN VIRG:=VIRG+1; 
BON : BOOLEAN: END 
BEGIN ELSE IF S1(11=BS 
REPEAT THEN BEGIN 
READ(KEYBOARD, CH) ; WRITE(BS;° ’,BS): 
IF EOLN(KEYBOARD) THEN CH:=CR; IF POINTEXISTE THEN VIRG:=VIRG-1; 
BON:=CH IN BONSET; CASE CONT(LENGTHCCONT)1 OF F 
IF NOT BON *,.*:BEGIN : 
THEN WRITE(SON) POINTEXISTE:=FALSE; 
ELSE IF CH IN [° ’..’"°) VIRG:=0: 
THEN BEGIN END; 
IF PAVE *-’:POSITIF:=TRUE: 
THEN BEGIN END; 
CASE CH OF DELETE(CONT,LENGTHÇ(CONT),1) 
*M’:CH:=°0" END: 


"J*:CHi="1" 
’K':CH:="2" 
‘L’:CH:="3" 
*U’:CH:="4" 
1/:CH:="5S" 
‘0:CH:=°6" 


*,”sCHis".” 


UNTIL S11(1)=CR; 
IF LENGTH(CCONT) «>0 
THEN BEGIN 
NOMBRE: =0; 
POINTEXISTE:=FALSE; 
DENOM:=10; 
1F POSITIF THEN DEBUT:=1 ELSE DEBUT:22; 





END: FOR 1:=DEBUT TO LENGTH(CONT) DO BEGIN 
IF CH IN (’.’]1 THEN POINTEXISTE:=TRUE: VAL:=ORDCCONT(I]): 
END; 1F CONT(II)="." 
WRITE(CCH) : THEN POINTEXISTE:=TRUE 
END: ELSE BEGIN 
UNTIL BON; IF POINTEXISTE 
PRENCAR : =CH THEN BEGIN 
END; (#PRENCAR* ) NOMBRE : =NOMBRE+(VAL-ORD(”’0Q°3)3)/DENOM; 
DENON: =DENOM*10; 
PROCEDURE REEL(X,Y,LMAX,DECI:INTEGER:; VAR NOMBRE:REAL) ; END 
VAR S1 :STRING(I); ELSE BEGIN 
1 :INTEGER; NOMBRE : =NOMBRE=#10; 
CONT STRING: NOMBRE : =NOMBRE+(VAL-ORD(’0°)) 
OKSET :CHOIDECA: END; 
VAL :INTEGER; END; 
DENOM :INTEGER; END; 
VIRG :INTEGER; END; 
POSITIF: BOOLEAN; 1F NOT POSITIF THEN NOMBRE :=-NOMBRE; 
DEBUT  :INTEGER:; SORTIE; 


END: (*REEL=) 
PROCEDURE SORTIE; 


BEGIN BEGIN 

GOTOXY(X,Y); PRINFO: 

WRITE (NOMBRE : LMAX : DECI) ; WRITE (HOME) ; 

PAVE:=FALSE; REPEAT 

EXIT(REEL) ; GOTOXY (0,5); 

END; (#SORTIE=) WRITEC’XXXXXXXXXKXXXXKAXXXX ? ) ; 
TEST:=-1000.05: 

BEGIN REEL(4,5,8,2,TEST); 

PAVE:=TRUE; GOTOXY(0,7); 

OKSET:=(/0’..°9°,°U°,’1°,°0°,°J°.."M°",ESC); WRITELNCTEST, de 

POINTEXISTE:=FALSE; UNTIL TEST=0; 

S1:=° ’; END. 
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3 LIVRES ET LEUR DISQUETTE 





UTILISATIONS DE L'ORDINATEUR 


POUR VOTRE APPLE 


Pour Apple Il, I! plus et /e DOS 3.3. version 48 K ou plus 





Vous avez acheté le livre “La comptabilité sur Apple Il” de Serge et Gérard Llillio, et vous n'avez 
pas le temps nécessaire pour taper vous-même les programmes sur votre Apple. Dans ce cäs, 
cette disquette vous est tout particulièrement destinée ! 

L'ensemble des programmes présentés ici constitue la réplique exacte des listings proposés 
dans l'ouvrage, à l'exception des ordres pour imprimante. 

Cette disquette doit être considérée comme une aide au lecteur et non comme un progiciel de 
comptabilité. Ainsi, les trois exemples de libellés cités en annexe dans le livre et ci-inclus, 
doivent être envisagés en tant que points de départ pour une utilisation plus personnelle. 
La disquette seule : 185,00FF/1425,00FB 


Le livre décrit un ensemble de programmes de comptabilité générale en Basic pour petites entreprises, professions libé- 
rales, artisans, commerçants. Avec édition des livres-journal, grands livres, balances, bilans. Avec calcul des ratios. Pro- 
gramme spécial intéressant l'adaptation et la personnalisation du plan comptable. Et... quelques “ficelles” pour Apple Il. 


Le livre seul: 102,00FF / 785,00FB 


Voici une disquette qui permet aux lecteurs de “Visicalc sur Apple” d'accéder directement à tous 
les tableaux Visicalc présentés dans le livre. Ils trouveront sur cette disquette la réplique exacte 
des tableaux présentés dans l'ouvrage. S'y ajoute un programme en Basic permettant l'impres- 


VISICAIC 


SUR APP 


Sion des formules d'un tableau, sur une ou deux colonnes, dans l'ordre de A vers le bas à droite VrsATaR On 


du tableau. 


Attention: cette disquette ne peut être utilisée sans la disquette maîtresse Visicalc. HERVE 
La disquette seule : 185,00FF / 1425,00FB 


Après une présentation progressive du modèle Visicalc, l'ouvrage présente un ensemble d'exemples d'appliations, 
échéancier de remboursement, feuille d'impôt, gestion de copropriété, paye, facturation... permettant d'introduire les 
différentes instructions et astuces d'utilisation. 


Le livre seul: 82,00FF / 635,00FB 
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1180 Bruxelles 
BELGIQUE 
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P.S.I. DIFFUSION 
BP 86 - 77402 Lagny-s/Marne Cedex 


Téléphone (6) 006.44.35 


P.S.I. BENELUX 
5, avenue de la Ferme Rose 


Téléphone (2) 345.08.50 


THIRIEZ 


Vous avez acheté le livre “Mathématiques et statistiques”, et vous n'avez pas le temps de taper 
vous-même les programmes sur votre Apple ? Alors cette disquette vous est tout particulière- 
ment destinée | 

L'ensemble des programmes présentés ici constitue la réplique exacte des listings proposés 
dans l'ouvrage. 

Cette disquette doit être considérée comme une aide au lecteur et non comme un progiciel de 
mathématiques. 

La disquette seule : 185,00FF /1425,00FB 


Le livre décritun ensemble de programmes en Basic de mathématiques et de statistiques, niveau supérieur. Chaque pro- 
blème traité comporte une introduction numérique, un exposé de la technique de programmation utilisée, un organi- 
gramme détaillé et un programme complet suivi d'un exemple d'utilisation, Les programmes sont structurés de manière 
à permettre une insertion dans des programmes plus importants. 


Le livre seul: 92,00FF / 710,00 FB 
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Pom's vous offre à partir de ce nu- 
méro une rubrique ‘’micro-informa- 
tions” régulière. On y trouvera pêle- 
mêle informations et nouveautés 
pour la gamme Apple (II, //e et ///). 
En fin de rubrique sont regroupées 
les adresses des différentes entrepri- 
ses citées, ainsi que les références 
dans le cas d'informations tirées dé 
revues étrangères. Les prix mention- 
nés sont habituellement donnés en 
francs français TTC. Ils ne sont qu’in- 
dicatifs et peuvent être sujets à varia- 
tion. 


Les lecteurs de 
disquettes 


Les progrès effectués dans le do- 
maine des lecteurs de disquettes 
prennent plusieurs aspects : formats 
réduits (disquettes 3.5 pouces que 
lon devrait voir bientôt apparaître en 
compatibles Apple), densités accrues 
(plus de 1 mégaoctet sur une dis- 
quette 5 pouces 1/4) et encombre- 
… ment réduit. RMI propose des unités 
- de disquettes de marque TEAC, en- 
tièrement compatibles contrôleur 
Apple, mais 30% moins hautes. Prix 
sans contrôleur : 2950 FF. 


Pour demain, avec les disquettes à 
enregistrement vertical, des disquet- 
tes 5 pouces avec des capacités for- 
matées de 5 mégaoctets (2,5 Mo par 
face). Ces merveilles sont encore au 
niveau prototype. Patientez donc un 
peu... 


Les imprimantes 


Domaine très actif actuellement, les 
imprimantes où l’on vient d’enregis- 
trer coup sur coup plusieurs nou- 
veautés. Tout d’abord, à tout sei- 
gneur tout honneur, les deux 
imprimantes de marque Apple. La 
première est de type matriciel (97 
points) et ressemble furieusement à 
la NEC. Rapidité (120 caractères par 
seconde), souplesse (sept alphabets 
spéciaux, huit tailles de caractères), 
redéfinition des caractères, espace- 
ment proportionnel et copie d'écran 
graphique. Ses possibilités ainsi que 
son prix (7200 FF avec interface) de- 
vraient en faire une concurrente sé- 
rieuse des Centronics, Microline et 
Epson. 


La deuxième, grâce à une impression 
à marguerite, permet une frappe de 
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Micro-informations : 


les 


très haute qualité. Destinée aux ap- 
plications de traitement de texte ou à 
la sortie de documents de qualité 
professionelle, elle présente des ca- 
ractéristiques intéressantes : 40 carac- 
tères par seconde (cps), largeur jus- 
qu'à 38 cms (198 colonnes avec 
caractères resserrés), tabulations, jeux 
de caractères internationnaux... Son 
prix de 19000 FF avec interface la 
réserve cependant aux applications 
professionnelles. 


De son côté, Epson vient de sortir 
deux nouveaux modèles. La FX80, 
tout d’abord, offre de nouvelles amé- 
liorations par rapport à la série 
MX82 : matrice 9x9, 160 cps, mé- 
moire vive de 2K utilisable soit en 
buffer d'entrée, soit en redéfinition 
de caractères, possibilité de sauts de 
ligne arrière... Son prix est d'environ 
9900 FF avec interface. Quant à 
l'autre modèle, la RX80, je ne pour- 
rai vous décrire ici ses caractéristi- 
ques car je n'ai pu me procurer la 
documentation. Seul élément connu, 
son prix : 6500 FF avec interface. 


Les cartes 


Une nouvelle sorte de carte est en 
train d’apparaître. Il s’agit d’une carte 
comprenant un 6502C (fonctionnant 
à 4 MHz au lieu de 1 MHz pour le 
6502 normal) et 64K de RAM. Un 
petit programme lui permet de désé- 
lectionner le 6502 en place sur la 
carte mère et d'effectuer toutes les 
opérations à sa place, à la seule dif- 
férence qu'il les exécute 3 à 4 fois 
plus vite. Ce gain de temps ne s’ap- 
plique bien entendu pas aux opéra- 
tions avec la disquette qui s’effec- 
tuent toujours avec la même lenteur. 


Pour exploiter ce gain de temps, il 
faudra que j'essaie le programme 
d'échecs Sargon 2.5 au niveau 6: je 
ne l’ai utilisé qu’une fois au niveau 4, 
pour abandonner par KO” à 3h du 
matin après 5h d'échanges désespé- 
rément lents. Outre l'exécution de 
gros programmes nécessitant peu 
d'accès disquette, les applications 
graphiques semblent pouvoir offrir de 
nouvelles perspectives dans l’anima- 
tion avec cette carte. 


Conçue par la société américaine 
Number Nine, cette carte va être im- 
portée en France par BIP (Prix fran- 
çais non encore précisé ; prix améri- 
cain : 650 dollars). 


nouveautes 


Jean-François Duvivier 


Steve Watt est anglais. Il s’est installé 
à Paris et a fondé Microperiph pour 
distribuer des produits spécifique- 
ment consacrés à l'Apple. Parmi les 
bonnes affaires qu'il propose, rete- 
nons la carte 80 colonnes U-Term à 
1490 FF, un dispositif permettant la 
répétition automatique des caractères 
lorsqu'une touche est laissée enfon- 
cée (inutile pour le //e!) pour 110 
FF, des disquettes 3M renforcées à 
180 FF la boite de 10. Il a également 
importé la carte ‘’Accelerator Il” qui, 
grâce à un 6502 fonctionnant à 4 
MHz, accélère dans un facteur 3 à 4 
la vitesse d'exécution des program- 
mes sur Apple (3950 FF). Si vous 
passez chez lui, dites que vous venez 
de notre part, vous serez bien ac- 
cueilli. Attention, n'hésitez pas à en- 
trer, c’est au premier étage. 


Parmi les nouvelles cartes, citons 
aussi toutes celles qui permettent de 
conserver les informations une fois 
l'Apple éteint. MPC Peripherals a 
conçu une carte 128K à base de mé- 
moires à bulles, qui permet de rem- 
placer réellement un lecteur de dis- 
quettes grâce au “Disk Emulator”, y 
compris au niveau de la non-volatilité 
des informations. 


Autre démarche, celle adoptée par 
Legend qui propose une carte 18K 
en technologie CMOS, avec batterie 
incorporée. Pourquoi 18K7? Parce 
que le DOS prend exactement 18K 
de mémoire vive et peut se stocker 
dans cette carte. Ainsi, dès la mise 
sous tension, le DOS est présent 
dans l'Apple. Bien entendu, tout 
autre programme peut être mis dans 
cette carte, pour obtenir un système 
’turnkey” exécutant le programme 
dès la mise sous tension de l’appa- 
reil. Toutes les cartes Legend sont 
importées par BIP. Prix de la carte 
18SRC : 1550 FF. 


La carte Legend 128K DE fonc- 
tionne maintenant sur Apple II et //e; 
elle est fournie avec interface Le- 
gend, Boot Visicalc (160K utiles), 
programme de gestion de fichiers 
ultra-rapide, simulateur de disque, … 


et manuel en français. Nouveau 
prix : 5.600 FF; la carte 64K est dis- 
ponible à 3.600 FF. 


Vous trouverez aussi chez BIP la 
carte ”’80 colonnes” UltraTerm , qui 
vous donne les choix suivants : 
24180, 32x80, 48x80, 24x96, 
32x128, 24x132 et 24x160. Compa- 
tibilité avec Visicalc et Applewriter II. 
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Avec la carte PCPI 88CARD, compa- 
tible Apple II et //e, vous ajoutez 64K 
aux 64K de votre Apple, pour un 
total de 128K de mémoire centrale. 
Mais surtout, vous disposez du sys- 
tème d'exploitation MS-DOS de 
lIBM OP. La carte avec le MS-DOS 
et le MBASIC est vendue 595 FF. Le 
CP/M-86 est disponible en option. 
Fabricant : Personal Computer Pro- 
ducts Inc.(PCPI). 


Autre produit PCPI: l'APPLI-CARD 
offre 64K de plus, un écran de 70 
colonnes, et le choix entre des pro- 
cesseurs Z80 à 4MHz (295) ou 
6MHZz. Avec cela, votre CP/M tourne 
2 à 3 fois plus vite qu'avec une carte 
Z80 habituelle. 


Les communications 


Le Service Calvados de l'American 
College in Paris étoffe ses services. 
Citons notamment la prochaine mise 
en place d’un service Bourse qui per- 
mettra l’accès à une base de don- 
nées de 20.000 cotations quotidien- 
nes (marchés français et étrangers) et 
la possibilité de création de bases de 
données privées. Une documentation 
complète peut être obtenue sur de- 
mande. 


La société Communication Interface 
présente un ensemble Microtelex qui 
permet d’accéder à partir d’un Apple 
au réseau télex national et internatio- 
nal. Les avantages par rapport aux 
matériels télex classiques résident 
dans les possibilités de traitement de 
texte, de numérotations abrégées, de 
transmission différée et de gestion 
des différents types de rejet du ré- 
seau. Autre avantage, et non des 
moindres : le silence ! Le matériel est 
bien entendu agréé par les PTT. Do- 
cumentation disponible sur demande. 


Acquisition et 
traitement de données 


EUROTRON introduit en France 
PISAAC 91A de Cyborg (USA): il 
s'agit là d'un système polyvalent 
d'acquisition rapide de données et de 
contrôle de processus. Entrées analo- 
giques (tensions, courants, capteurs 
et transmetteurs 4/20 mA, thermo- 
couples) ou numériques (via RS232 
et IEEE); sorties analogiques ou nu- 
mériques. 


Les jeux 


Saluons ici la société Penguin Soft- 
ware qui, face au piratage des logi- 
ciels, essaie de trouver des solutions 
originales. Après avoir l’an dernier 
ôté toutes les protections de ses logi- 
ciels utilitaires graphiques (Special Ef- 
fects, The Complete Graphics Sys- 


tem et Graphics Magician), elle a 
annoncé à partir du ler mars un prix 
unique pour tous ses jeux: 19,95 
dollars, ce qui représente entre 200 
et 250 FF. Parmi les jeux édités par 
Penguin Software, notons Pie-Man, 
Spy's Demise, Transylvania, Thun- 
derbombs et Crime Wave. Souhai- 
tons d’une part que l'expérience soit 
concluante pour Penguin Software, 
d'autre part qu'elle fasse des émules 
parmi les autres sociétés. Dernier 
souhait, et non des moindres, que 
tous ces jeux soient très vite distri- 
bués par des boutiques françaises à 
des prix raisonnables. 


Les jeux d'aventures ne connaissent 
plus de limites. L'un des plus célè- 
bres, Time Zone, dispose de 1400 
images graphiques différentes, le tout 
étant présenté sur 6 disquettes recto- 
verso ! Plus récent, Sherwood Forest 
charge ses images en 1 seconde ! 


Les programmes 


LOGAWAL lance la version 3.0, en- 
tièrement en français, du logiciel 
WalCore de gestion de fichiers tour- 
nant sur CP/M. Ce progiciel peut 
traiter 13.000 fiches de 500 caractè- 
res avec accès instantané par l'index, 
tris et sélections multi-critères, im- 
pression en tableaux, étiquettes et 
lettres personnalisées, modification 
de la structure des fichiers existants. 
Prix : 3.143 FF. 


Autres produits de la même société : 
version 3.0 de Wordstar en français 
et système de gestion de base de 
données InfoStar (combinaison de 
DataStar et ReportStar). Wordstar et 
InfoStar sont vendus au prix de 
25.500 FB HT chacun. 


Magicalc vous donne toutes les fonc- 
tions du Visicalc plus des améliora- 
tions à un prix plus intéressant : 
2.000 FF. Possibilités : colonnes de 
largeur variable, utilisation avec dis- 
que dur, colonnes invisibles ou pro- 
tégées, 70 colonnes par logiciel, re- 
connaissance automatique de 
nombreuses extensions mémoire. 
Magicalc est vendu par BIP. 


Executive Briefing System (EBS) est 
un ensemble de deux programmes 
distribués par SOFITEC dont le but 
est de vous permettre la projection 
d'images graphiques. Le premier 
programme sert à composer la pro- 
jection, le second à la présenter. 
Pour la composition : bordures, choix 
de caractères, histogrammes, … 


Le programme de gestion de cabinet 
dentaire Agatha du Dr. Gaussen 
vient d’apparaître en version IV. 
Avec la carte Legend, vitesse cinq 
fois supérieure. Capacités possibles : 
300, 510 ou 675 fiches de patients 
en cours de traitement. 





60 


La base de données Omnis en Pas- 
cal est à présent francisée et 
commercialisée par la société KA. 
Omnis est, selon la publicité, plus 
puissant que DB Master et aussi fa- 
cile à utiliser que PFS. 


Enfin, si vous cherchez à classer vos 
disquettes dans des enveloppes en 
plastique rangeables dans des clas- 
seurs, FRANIC vous donne le choix 
entre plusieurs types de pochettes. 
La feuille plastique avec deux poches 
pour disquettes 5 pouces est vendue 
40 FF la dizaine. 


Le marché des 
micro-ordinateurs 


Le domaine des ordinateurs compati- 
bles Apple se développe rapidement. 
Procès à la clé, Apple tente d'enrayer 
le phénomène. Il semble même que 
des saisies et destructions soient ef- 
fectuées par les douanes américaines 
lors de l'importation de certains de 
ces matériels aux USA. Outre le 
BASIS 108 dont nous vous parlons 
dans ce numéro et le Golem dont 
nous vous parlerons, on peut trouver 
aux Etats-Unis le ”’Orange+”, le ”’Pi- 
neapple”, le ’AP-I”, le ”Franklin 
Ace 1000 et 2000”, le ’Syscom”.… 
et la liste n'est certainement pas 
complète | 


D’après une étude de marché de la 
société ”’Future Computing”, le parc 
des différents micro-ordinateurs s'éta- 
blissait comme suit en fin 1982: 
Commodore VIC 20: 750.000 
unités, Apple II et  ZX80/81: 
600.000, Texas TI-99/4A : 575.000. 
Une étude qui a le mérite de faire le 
point des différentes forces en pré- 
sence, excepté l'IBM OP qui démarre 
très fort, mais dont les chiffres sont, 
comme toujours, sujets à caution. 


Les informations 


La revue Softalk (la plus épaisse des 
revues consacrées à l'Apple: 300 
pages mensuelles) publie le résultat 
d'une étude effectuée auprès de ses 
lecteurs sur les logiciels les plus po- 
pulaires parmi ceux commercialisés 
entre fin 81 et fin 82. Grand ga- 
gnant : Choplifter (vous savez, l’héli- 
coptère qui va sauver les otages !) 
créé par Broderbund Software. Le 
second, très détaché également par 
rapport aux suivants, est Wizardry de 
Sir-tech. Le troisième n'est autre que 
Locksmith 4.1, effectivement très po- 
pulaire chez certains utilisateurs. 


Pour les possesseurs d'Apple ///, une 
publication The Apple Three News- 
letter” est éditée trimestriellement 
aux USA par Mediaworks. Coût an- 
nuel: 15 dollars (prévoir près du 
double à cause des frais d'envoi). 
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Ceux de nos lecteurs à qui Pom's ne 
suffit pas et qui se gavent de revues 
étrangères, pourront trouver les prin- 
cipales d’entre elles chez SIDEG ou 
chez SIVEA, qui se révèlent avoir le 
choix le plus étendu (mais surtout 
n'y allez pas pour acheter votre 
Pom's trimestriel : mystère d’entre les 
mystères, il y est souvent en rupture 
de stock !). 


Adresses 


BIP - 22 rue Joseph Dijon - 75018 
Paris - Tel (1) 255.44.63 
Communication Interface - 2, place 
d'Aligre - 75012 Paris - Tel (1) 
341.85.85 


EUROTRON - 34 avenue Léon 
Jouhaux - ZI. - 92167 ANTONY 
CEDEX. 


FRANIC - Rue de la Chapelle - 
B.P.2 - 49190 Beaulieu s/Layon-Tel 
(41) 78.36.55 

Gaussen (Dr. Pierre) - CD Soit - 
59bis rue de la Biche - 30000 Nîmes 


KA - 212 rue Lecourbe - 75015 
Paris - Tel (1) 533.13.50 
LOGAWAL - 200 avenue Winston 
Churchill (Bte 22) - 1180 Bruxelles - 
Belgique 

Mediaworks - POB 2757 - San 
Francisco CA 94126 

Microperiph - 60 rue Ducouedic - 
75014 Paris - Tel (1) 321.41.80. Ou- 
vert de 10 à 12h et de 14 à 18h du 
mardi au samedi (ler étage). 


MPC Peripherals Corp. - 9424 
Chesapeake Drive - San Diego, CA 
92123 - USA. Voir Byte Nov 82, 
page 287. 

Personal (Computer Products 
Inc. - 16776 Bernardo Center Drive 
- San Diego, Ca. 92128 - USA 
Penguin Software - 830 4th Ave- 
nue - Geneva IL60134 - USA 

RMI - 71 Bd Marceau - 92700 Co- 
lombes - Tel 785.68.89 

Service Calvados - BP 21-07 - 
75327 Paris Cedex 07 - Tel (1) 
705.09.04 

SIDEG - 170 rue Saint Charles - 
75015 Paris - Tel (1) 557.79.12 
SIVEA - 31 bd. des Batignolles - 
75008 Paris - Tel (1) 522.70.66 
SOFITEC - 207 rue Galliéni - 


92100 Boulogne - Tel (1) 605.88.78 





Trucs et astuces 


Listings désassemblés 


Quand on désassemble des programmes en langage ma- 
Chine, la commande L du moniteur n'affiche que 20 ins- 
tuctions. Pour en afficher plus, on peut appuyer plusieurs 
fois sur L, mais c’est fatigant, surtout s’il faut désassembler 
de longs programmes sur imprimante. 


Pour éviter cela depuis le moniteur, il suffit de faire : 


{adresse] L34:n 
où n est le nombre de caractères de l'adresse, de 0 (s'il 


Applications : 
° Engineering 
+ Automation 
+ Banc d'essais 
+ Contrôle de processus - Chimie - Psychologie - Physiologie... 


EUROTRON LE SUPPORT et LE SERVICE EN PLUS 
34, Avenue Léon-Jouhaux, Z1 92167 ANTONY Cédex, Tél. 668 10-59 (5 lignes) 


DIVISION MICROINFORMATIQUE 
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n'y en à pas) à quatre chiffres. Il ne faut pas mettre d’es- 
pace, sauf après le n, où il est obligatoire. 


Exemples : 
L34:0 
300L34:3 


On trompe ainsi le moniteur : remettre la mémoire 34 à n 
lui indique qu'il faut exécuter des commandes à partir du 
n° caractère de la ligne (ici L), l'espace lui indiquant juste- 
ment que l’on n’est pas en fin de ligne. 


Il faut appuyer sur RESET pour arrêter le listing (ou 
CTRL-C si PLE est en mémoire). 
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VOUS INVESTISSEZ EN 
MICROINFORMATIQUE, 
FAÎTES LE 
EFFICACEMENT. 


ous allez investir dans un ordinateur personnel. 


Vous voulez être guidé dans votre choix et garantir au 
maximum votre investissement. 


Vous voulez vous servir efficacement de votre ordinateur 
personnel et souhaitez une assistance soutenue et suivie tant sur 
le matériel que sur l'emploi des logiciels. 


MINIGRAPHE MICROINFORMATIQUE, créée à 
Boulogne-sur-Seine il y a trois ans par Jean-Louis Orsini, met à 
votre disposition un système d'assistance efficace qui vous per- 
mettra de réussir votre investissement et d'optimiser vos résultats. 


Téléphonez-lui, il vous donnera toutes les informations 
nécessaires. 


En nous rendant visite, 
vous pourrez voir 
fonctionner 

des logiciels 
performants sur nos 
ordinateurs personnels. 


— 
— 


RE —— 


MINIGRAPHE 
MICROINFORMATIQUE 


263, Boulevard Jean-Jaurès 92100 Boulogne 


608/44/31 


DB création 


B.L.P. Information 


Un système informatique ne se limite pas 
à sa configuration de base. 


H faut pour l'exploiter un ensemble de logi- 
ciels et interfaces spécialisées efficaces. 


C'est dans cet esprit que BIP propose ses 
logiciels et interfaces pour Apple 2. 


UTILISATEURS DE ..CALC : 

Le temps des pionniers de Visicalc avec 40 colonnes 
et 18K mémoire est bien dépassé ! 

Aujourd'hui, grâce à BIP : 

* Utilisez les touches nouvelles de l'Apple IF. 

+ Jusqu'à 512K mémoire. 

+ 80 colonnes avec carte, 70/40 sans. 


Largeur des colonnes indépendante, 
cachées où protégées. 


Stockez les fichiers sur disquette ou disque dur. 
16 000 cases utilisables au lieu de 8 000 en Visicalc. 


Profitez de toutes ces possibilités supplémentaires 
et beaucoup d'autres, demandez MAGICALC 

dès maintenant disponible chez les meilleurs 
revendeurs. 


BON TEMPS AVEC TAMPON 
d'imprimante 


Une interface Tampon d'imprimante a une 
mémoire additionnelle qui emmagasine très vite 
l'information à imprimer et la redistribue à 
l'imprimante à sa vitesse. 

Elle vous permet de continuer à travailler sans 
attendre la fin de l'impression. 

BIP a toute une gamme d'interfaces, 
renseignez-vous pour trouver celle qui 
correspond à vos besoins. 


BIP 


C'est aussi toute une gamme d'accessoires 
pour les jeux graphiques : joystick, paddles, 
interfaces d'animation stéréo sonore et paroles. 


Et toujours : 

+ Ventilateur RH Electronic. 
Carte Interface Vidéo. 
Carte Synthétiseur Vocal. 


NOUVELLE Carte 128k LEGEND 
pour Apple + , 11° et /// 


PROMOTION SPECIALE AU MOIS DE JUIN : 
Carte LEGEND 128K + MAGICALC : 5700 FF. HIT. 


BIP sera présent à MICRO-EXPO stand N 26 
Documentation sur demande. 
En vente chez les meilleurs revendeurs. 


à B.I.P 


7 l'informatique personnalisée 


Distributeur : BIP 22 rue Joseph Dijon 75018 Paris Tél. 255 44 63 


Magicalc est une Marque déposée de Ansci. 

Visicale est une Marque déposée de Visocorp. 

Apple est une Marque déposée de Apple Computer inc 
Legend est une Marque déposée de Legend Ind 
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1 - J'aurais grand besoin d'un pro- 
gramme à compacter les program- 
mes. Où trouve-t-on cela ? On peut 
gagner 1/4 de la place mémoire oc- 
cupée par le programme. 


2 - S'il vous arrive de retrouver une 
ligne de programme modifiée, par 
exemple un ‘x’ que vous avez mis 
et qui a disparu, ou un token pris 
pour un autre, et si la modification se 
reproduit après correction, ne cher- 
chez pas la réponse pendant trois 
jours (comme cela m'est arrivé). J'ai 
été jusqu'à ramener ma machine au 
vendeur pour qu'il l'essaye... 


Commencez par vérifier les POKESs 
dans votre programme. En particu- 
lier, si vous avez eu le malheur de 
taper POKE 333,33 au lieu de POKE 
33,33 pour un programme de cap- 
ture ou pour l'édition de lignes, le 
POKE modifié à contre-temps provo- 
que, de façon difficilement prévisible, 
ce genre de modification. 


Cela vient de m'arriver en entrant en 
machine le programme ‘Les 4 
ponts” pour lequel il faut remercier 
Olivier Herz. En ligne 100, j'avais 
entré POKE 333,0 au lieu du 233,3. 
Résultat, lors du RUN. erreur en 
ligne 310 où le E avait disparu de la 
formule à l'endroit du “I1O*xE” J'ai 
essayé de mettre le produit entre pa- 
renthèses : c'est alors le ‘x’ qui dis- 
paraissait ! 


Docteur J. Rozoy - 26 rue du Petit 
Bois - 08000 Charleville-Mézières 


1 - Il existe deux programmes 
commerciaux que nous connaissons 
pour compacter les programmes 
BASIC. Vous en trouverez un dans 
Dakin (voir l’analyse des utilitaires de 
documentation dans Pom's 2), qui 
offre par ailleurs d’autres services. 


Un autre programme commercial, 
Applesoft Optimizer, compacte en- 
core plus les programmes car, outre 
l'élimination des REM et le raccorde- 
ment des lignes raccordables, il opère 
une renumérotation complète et re- 
baptise les variables afin de les rac- 
courcir autant que possible. 


Bien entendu, dans un cas comme 
dans l’autre, il est malaisé de modi- 
fier un programme compacté. L'idéal 
est de ne compacter qu'en fin de 
mise au point, et de garder pour les 
modifications éventuelles du pro- 
gramme une version non compactée. 


La place mémoire que vous gagnez 
dépend de la façon dont votre pro- 


Pom's n° 8 


Courrier des lecteurs 


gramme était écrit. Vous gagnerez 
beaucoup de place (parfois jusqu’à 
40%) s'il comporte de nombreuses 
instructions REM, s’il utilise des noms 
de variables longs, s’il possède des 
numéros d'instructions longs et s’il 
met peu d'instructions par ligne. 


2 - Merci! Nous savions qu'il fallait 
se méfier des POKES intempestifs, 
mais nous n'avions pas encore ren- 
contré ce problème. 


Je n'ai pas la fonction CHOOSE sur 
mon Visicalc. Comment doit-on mo- 
difier la formule de la case B20 dans 
l'exemple de feuille d'impôts du livre 
"Visicalc sur Apple” pour obtenir le 
bon résultat sans cette fonction ? 


M. Morcrette - 02100 St Quentin 


Il suffit de déplacer avec [/M] la ligne 
27 après les deux lignes suivantes 
(en position 29), puis de remplacer 
dans la formule de la case B20 la 
fonction  CHOOSE(B26,A27...M27) 
par LOOKUP(B26,A28...M28). 


Après avoir lu la lettre d'Olivier Herz 
dans le Courrier des Lecteurs du 
Pom's 4, j'ai essayé de mettre en 
place le mini-assembleur. J'obtiens 
bien le mini-assembleur, mais aussi la 
St ligne assemblée. Par exem- 
ple : 

!-2000-:-LDA-#00 me donne : 
2000--A9-00-LDA-# 800 

À partir de là, le système ‘se plante” 
et je dois faire RESET pour en sortir. 
Que faut-il faire ? 


G. Gilbert - 97300 Cayenne 


Il y a en effet une coquille dans ce 
Courrier des Lecteurs: il faut lire 
78537 :85”. 


Je tiens à vous livrer une expérience 
désagréable que j'ai eue avec le 
compilateur Pascal. J'avais tapé la 
séquence suivante : 


VAR NOM : STRING ; 
TB : TAB; 
LJ : INTEGER; 
(x Compteur de bou- 


cle) 
LBM : LIBMOR; 
LBV : LIBVER: 
(* Procédures courantes * ) 


etc … 


A la compilation, j'avais l'erreur de 
syntaxe ‘UNDECLARED  IDENTI- 
FIER” à la première occurence de 
LBM et LBV, alors que je croyais les 
avoir déclarées en tête de pro- 
gramme. J'ai mis plus d'une heure à 
découvrir qu'il manquait effective- 


RSRRE SURNNE TS EN NE F7: 
RS DE ER 21 A 


ci HÉRIÉSAS TRE RS Tete 


Olivier Herz 


ment l’astérisque avant la parenthèse 
fermante en ligne 3, ce que je ne 
voyais pas à cause de mon écran à 
40 colonnes. 


Michel Lafon - 72 rue du Maréchal 
Foch - 42300 Riorges 


Merci pour cet exemple : il est bon 
d'être au courant de problèmes de 
ce genre; cela évite que chacun 
perde du temps pour la même rai- 
son. Voici d’ailleurs une autre expé- 
rience de ‘’plantage”, pour les ama- 
teurs d’'Applesoft. 


Le programme de “Gestion de mas- 
ques” de Gérard Michel dans le nu- 
méro 7 m'a fort intéressé. Mais je 
dois dire que j'ai eu des résultats 
variés lors de l'impression des mas- 
ques : 

e avec une Centronics, il y avait un 
saut de ligne excédentaire à cha- 
que ligne; 

e avec une Silentype et une IDS, 
aucun problème; 

®@ avec une Epson équipée d’une 
carte graphique, j'avais une ligne 
sur trois ? 


Guy Mathieu - 92 Vaucresson 


Pour notre part, nous avions testé le 
programme avec une Silentype, une 
Centronics 739 et une Oki 92. Le 
tout sans problème... 


1 - Il est peu pratique que les pages 
HGR de l'Apple soient situées en 
plein milieu de la RAM et obligent 
ainsi à situer un programme BASIC 
soit entièrement en-dessous, soit en- 
tièrement au-dessus des pages gra- 
phiques HR. Y a-t-il un truc pour 
placer un morceau de programme 
avant les pages HGR et un autre 
après ? 


2 - Ceux qui ont la couleur sur leur 
Apple ont sans doute remarqué que 
la définition est moins bonne qu'en 
N/B. Y a-t-il un moven soft pour se 
passer de la couleur et récupérer la 
vraie définition ? J'ai une carte RVB 
Sonotec et un téléviseur Thomson. 
Parfois, il y a des amorçages (étincel- 
les) au niveau de la THT du télévi- 
seur et, par miracle, mon Apple écrit 
en vert sur fond noir avec la vraie 
haute résolution où en noir sur fond 
vert. RESET annule cet effet et fait 
revenir la couleur. Je suppose que 
des tensions incontrôlées modifient 
l'état de certaines mémoires en re- 
montant les fils de la RVB. Comment 
provoquer cela par un moyen moins 
aléatoire ? 












RS de dcodaver ct 


"| 
D 
Kai 


FT 


34 
2 


ie 


EE 


D 


Fit 





3 - Et voilà un tuyau : à cause de la 
couleur, l'impression de certains gra- 
phes sur mon écran n'est pas satisfai- 
sante. Des parties de tracé sont 
bleues, d'autres vertes. On obtient de 
très belles courbes bien homogènes 
en traçant en blanc (HCOLOR= 3) 
sur un écran constitué d'une alter- 
nance de lignes horizontales vertes 
(HCOLOR= 1) et bleues (HCO- 
LOR= 2). 


Joël Delannoy - Quartier des Grées 
-04510 Aïiglun - Mallemoisson 


1 - Faire un ”trou” dans un pro- 
gramme 


Le programme SPLITTER, publié 
par Call APPLE et repris dans sa pu- 
blication ”’All About Applesoft” per- 
met de créer un “trou” à l’intérieur 
d’un programme Applesoft, trou qui 
occupe un nombre donné de pages 
mémoire, à définir par l'utilisateur. 


Voici la récapitulation binaire de ce 
programme : 


Programme SPLITTER 
Récapitulation 


3400- 38 A5 BO 85 41 65 06 85 
3408- 43 AS AF 85 40 85 42 A0 
%410- 06 A9 00 91 42 88 DO F9 
3418- Bi 40 C6 40 91 42 C6 42 
3420- AS 42 C9 FF D0 F2 AS 41 
3428- C6 43 C6 41 C5 07 10 E8 
3430- A5 07 85 08 C6 08 38 A5 
3458- B0 65 06 85 BO 85 6A 85 
3440- 6C AS 67 85 40 AS 68 85 
944B- 41 AO 01 Bi 40 C5 08 FO 
3450- 0B AA 88 B1 40 85 40 86 
9458- 4i C8 DO EF 88 Bi 40 FO 
3460- 02 DO 05 C8 B1 40 DO E9 
9468- CB C8 CA C8 Bi 40 DO FB 
3470- C8 C8 C8 C8 CB A9 AB 91 
9478- 40 ÀS 40 85 42 A5 41 85 
3480- 43 C8 84 09 AO 01 B1 40 
3488- 38 65 06 91 40 88 AA B1 
4%- 40 85 40 86 41 C8 A6 09 
3498- DO 11 Bi 40 DO EA 4C 00 
34A0- 00 10 27 EB 05 64 00 OA 
94RB- 00 01 00 C8 Bi 40 85 19 
34B0- C8 Bi 40 85 1A A9 A1 85 
94B8- 1B A9 94 85 1C A0 01 A2 
34C0- 01 A9 2F 85 1D E6 1D À5 
34C8- 19 88 38 F1 1B 85 19 C8 
36D0- 5 1A 30 02 A2 00 Fi 1B 


34D8- 85 1A 10 E9 BA DO E6 A5 
£0- !9 88 18 71 1B 85 19 CA 
SE8- À5 1A 71 1B 85 1A 84 1E 
3FO0- A5 {D 04 09 91 42 CB A9 
JF8- 00 91 42 E6 09 A4 1E C8 
3500- CB 98 C3 OA 30 BB 86 09 


3508- A0 01 40 9A 4 


Mode d'emploi : 

e le sauvegarder 
SPLITTER 

e faire BLOAD SPLITTER 

e POKE 6,nombre de pages du trou 

e POKE 7,page de début du trou 

e CALL 37888 

Exemple: pour épargner la page 

HGR2, ïil faut faire POKE 6,32: 

POKE 7,64 : CALL 37888. 


Précautions à prendre : on ne peut 
BLOADer SPLITTER et faire le 
CALL depuis le programme Apple- 
soft concerné, mais il faut le faire au 
clavier ou depuis un fichier EXEC. Il 
est fortement déconseillé de relancer 
SPLITTER sur un programme déjà 
"’splitté”, ainsi que d'essayer de créer 
un trou en dehors du programme ou 
dans un programme trop gros qui 
déborderait alors sur le DOS. Enfin, 
sauver puis recharger un programme 
splitté” ne conserve pas le trou. 


2 - Carte RVB Sonotec 


Voici les POKESs à faire avec la carte 
RUB Sonotec : 

POKE -16144,0 : texte en blanc et 
graphiques en couleur. C’est le mode 
par Li à l'allumage ou après un 


POKE -16143,0: texte en vert et 
graphiques en couleur 

POKE -16142,0 : texte en blanc et 
graphiques en N/B 

POKE -16141,0: texte en vert et 
graphiques en noir et vert. 


sous le nom 


3 - Merci pour vos tuyaux sur les 
couleurs. Pour en savoir un peu plus, 
vous pouvez vous reporter à mon ar- 
ticle sur HAIFA (Pom’s numéro 5, 
pages 41 et 42): la fonction SCRN 
haute résolution. 


», 


Dans la ‘Programmation facilitée 
(Pom's 5) de Denis Sureau que je 
remercie vivement pour son article 
original et agréable, l'instruction & 
INPUT Af$, …, "LABEL" ne lit pas 
les espacements. Ainsi : 

$ INPUT A$, …, "QUI EST LA ” 
donne à l'exécution:  ”QUIES- 
TLA ?” 


B. Tambosco - 14 rue des Canadiens 
- St Didier des Bois - 
27370 Amfreville-la-Campagne 


Vous avez découvert un bug qui 
s'avère encore plus dangereux que 
vous ne l'avez dit, car un oubli des 
guillemets finaux dans LABEL” fait 
que l’amper-interpréteur affichera 


+ V4 En BE ENS RAT SENTE 
+. AMENER ETES ETS 


TOUS les octets du programme Ap- 
plesoft jusqu'aux premiers guillemets 
rencontrés, d'où du ‘garbage” à 
l'écran. 


Le problème vient du fait que le pro- 
gramme assembleur affiche la chaîne 
caractère par caractère jusqu’au pro- 
chain qguillemet, chaque caractère 
étant obtenu par la routine CHRGET 
($B1) qui justement ‘’saute” les espa- 
ces. 


Je propose une modification utilisant 
les routines Applesoft STRTXT, 
STRPRT et CHRGOT. STRTXT 
($DE81) fabrique un descripteur de 
chaîne pour la chaîne pointée actuel- 
lement par le pointeur de pro- 
gramme TXTPTR ($B8,B9) et stocke 
ce descripteur en FACMOLO 
($AO,A1). CHRGOT ($B7) lit le ca- 
ractère du programme pointé par 
TXTPTR, sans toutefois incrémenter 
TXTPTR comme CHRGET le fait. 


En conclusion, il faut remplacer les 
lignes 115 à 121 par: 

115 STRING SEC 

116 JSR $DE81 

117 JSR $DB3D 

118 RTSSTR JSR $B7 


Si vous n'avez pas d’assembleur, 
vous pouvez utiliser le patch suivant, 
pour la version 48K de la program- 
mation facilitée : 

9343 : 38 20 81 DE 20 3D DB 
93AA : EA EA EA EA EA EA EA 
93B2 : 20 B7 00 


Pour la version 32K, utiliser les 
adresses 53A3, 53AA et 53B2. 


Mon fils Loïc (16 ans et demi) aime- 
rait rencontrer des utilisateurs d'Ap- 
ple Il pour parfaire ses connaissances 
et progresser ensemble. Y a-t-il un 
club dans le 208 (sinon le 12, le 
11è ou le 10è) ou des abonnés à 
Pom's qui seraient intéressés ? 


M. Lepechon - 94 rue de Buzenval - 
75020 Paris 


Nous invitons les lecteurs de Pom's 
intéressés à répondre directement. 
Voici en outre une liste de clubs du 
voisinage : 

Computerland Paris-Est - 135 Bd. 
Voltaire-75011 - Tel 379.21.01 - 
Contacter M. Cung 

Ecole Professionnelle Supérieure 
(EPS) - 45 rue des Petites Ecuries - 
75010 Paris - Tel 523.35.30 - 
Contacter Lionel Godard 

Club 702 - 9 rue de Rambouillet- 
75012 Paris - Tel 345.33.80 - 
Contacter Gilles Probst 


Lecteur récent de Pom's, je me per- 
mets de vous écrire pour vous dire 
BRAVO: bravo pour une revue re- 
marquablement lisible pour le pro- 
grammeur moyen que je suis, bravo 
pour les programmes originaux et in- 
téressants, ‘bravo pour la qualité 
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d'impression et le panachage des dif- 
férents langages. 


Une petite remarque cependant; je 
ne suis pas abonné et ne désire pas 
l'être. J'achète tous les numéros de 
Pom's au jour le jour et possède le 
recueil et tous les autres numéros. Je 
n'ai pourtant pas pu acheter les dis- 
quettes chez mon revendeur habi- 
tuel. Pourquoi donc ? 


J-M Mousseau - 36 rue de Gometz - 
91440 Bures s/Yvette 


Tout d'abord, merci pour vos encou- 
ragements. De nombreux autres lec- 
teurs nous en envoient, nous profi- 
tons de l’occasion pour les remercier 
en même temps que vous. Nous 
avons voulu dès le début de Pom's 
vendre les disquettes d’accompagne- 
ment à très bas prix. Où trouverez- 
vous ailleurs des disquettes pleines 


de programmes et vendues moins de 


45 FF TTC (prix sur abonnement) ? 


Le seul moyen de vendre à ce genre 
de prix est de pratiquer la vente di- 
recte. À titre indicatif, la disquette 
d'accompagnement du livre ‘’Visicalc 
sur Apple” était vendue par nous di- 
rectement à 75 FF TTC port 
compris. Elle est à présent vendue 
dans les boutiques, distribuée par les 
Editions du PSI, à un peu moins de 
200 FF. C’est d’ailleurs le prix du 
marché pour ce genre de produit, En 
effet, il faut incorporer le coût de 
l'emballage, la marge du diffuseur, 
celle de la boutique, … Seriez-vous 
disposé à payer la disquette de 
Pom's 100 FF pour l'avoir dans les 
boutiques ? 


En réponse à la lettre d'André Ba- 
beanu dans le Courrier des Lecteurs 
du Pom's 7, il est exact que le char- 
gement rapide utilisé ne copie que 
des secteurs entiers de 256 octets. Si 
l’on charge un programme en $300, 
cela écrase donc les vecteurs du 


DOS en $3D0 et du RESET en 
$3F2. Il n'y a pas de parade autre 
que de réécrire le MENU. Le pro- 
gramme &BLOAD publié antérieure- 
ment, par contre, comporte un test 
de longueur destiné à contourner cet 
obstacle. 


Quand au patch de la ROM LC, je 
pense qu'il serait intéressant de mo- 
difier le DOS lui-même et de ne pas 
modifier les buffers pour conserver le 
maximum de compatibilité avec les 
autres programmes. De toute façon, 
le MENU est destiné. à ne fonctionner 
que lors du boot, le programme 
choisi peut ensuite compter sur une 
configuration ‘’normale”, libre à lui 
de modifier ce que bon lui semble 
(vecteurs de  RESET, d’'en- 
trées/sorties, …). 


Thierry Le Tallec - 69 rue Sauveur 
Tobelem - 13007 Marseille 





Vacances informatiques pour 
vos enfants 


"Les amis du logiciel proposent des 
stages de micro-informatique pour les 
enfants de 12 à 14 ans. Les séances 
de travail alterneront avec les activi- 
tés de plein air (tennis, ping-pong, 
natation). Le matériel utilisé est 
Apple IL. Lieu : à 30 kms d'Angers. 


LOGAMI - Christian de Menthon - 9 
rue Las Cases - 75005 Paris - (1) 
551.74.07 


Ma Pomme 


Le club Ma Pomme continue à orga- 
niser des soirées de travail autour 
d'un thème. Prochaines réunions de 
ce genre : Fichiers et bases de don- 
nées sur Apple Il, //e et /// (15 juin), 
Applications musicales et vocales (20 
juillet) et Mémoires de masse pour 
tous Apples (21 septembre). Les 
séances ont lieu à partir de 19 
heures au 110, avenue du Général 
Leclerc à Paris (XIV). 
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Courrier des clubs 


Ma Pomme - 6 rue Paul Saunière - 
75016 Paris - Tel le soir (tard): (1) 
558.05.78 


Microtel Club Monaco 


Notre Club se réunit un vendredi soir 
sur deux dans notre local provisoire, 
au Club des Sports et Loisirs, à 
l'adresse indiquée ci-dessous. 


Nous sommes équipés d’un Goupil Il 
avec TV couleur, mais beaucoup de 
nos membres possèdent des Apple II, 
qui constituent un centre d'intérêt 
priviligié de nos rencontres. Pour 
tous renseignements, contacter C. 
Perisi au (93) 50.68.56 


Microtel Club Monaco - 24, avenue 
Prince Pierre - 98000 Monaco 
Informatique - architecture 


Les prochaines journées de démons- 
tration organisées par notre club se- 


ront consacrées aux applications dis- 
ponibles pour les architectes. Elles 
auront lieu les 24 juin et 22 juillet. 
Pour tout renseignement, s'adresser 
à : 


Club informatique-architecture - 110 
avenue du Général Leclerc - 75014 
Paris-Tel (1) 45.75.07 


Informatique ”Populaire” 


Une publication mensuelle d’une 
vingtaine de pages est née en dé- 
cembre dernier. Il s’agit d’Informati- 
que ‘Populaire”, bulletin de liaison 
des clubs populaires d'informatique, 
pour le moment implantés dans la 
région Nord et Pas-de-Calais. 


Ecrire à Hélène Weiss - EDICO - 13 
rue E. Rostand - 62200 Boulogne 
s/Mer - Tel (21) 31.42.32 


OLIVETTI PRAXIS 
AVEC INTERFACE APPLE 


écrire. 


5400 F ht. 


L'imprimante qui est aussi une machine à 


Marguerites interchangeables. 


TOTALE FORMATION 


114, avenue Charles-de-Gaulle 92200 Neuilly - Tél. 745.62.73. 
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Bon de commande 
à retourner sous pli affranchi 
aux Éditions MEV 

49, rue Lamartine 

78000 Versailles 


ER EE 
mettez 


de la couleur 
dans votre vie 
ER ER 


Prix total 
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de désire recevoir : 


° les numéros de la revue Pom’s [] 4 O5 [6 EI Ü 8 
au prix de 35 F le numéro 


° les disquettes d'accompagnement des numéros 
O1 2 O 3 [ 4 ES Er6 O 7 
au prix de 50 F par disquette 


(5) 
00 


* la disquette HAIFA Source [] au prix de 50 F la disquette (cf. Pom’s n° 5) 


e le logiciel H-BASIC C] au prix de 150 F (cf. Pom's n° 8) 
(disponible fin juin 1983) 


* recueil n° 1 de Pom’s (n° 1 à 4) 
[1 avec ses 3 disquettes au prix de 270 F 
] sans disquette au prix de 120 F 
[] les 3 disquettes seules au prix de 150 F 


Je désire m’abonner pour 4 numéros à partir du n°... 


[] sans disquette au prix de 120 F 
CT avec disquettes au prix de 295 F 


TOTAL : 


Envoyez ce bon de commande et votre règlement à : 


Éditions MEV - 49, rue Lamartine - 78000 Versailles 


Nom 





TS 


Ces tarifs comprennent l’envoi postal en France Métropolitaine, CEE et Suisse 
(voie aérienne exceptée) 
Pour envoi par avion : nous consulter 





MICRO-PERIPH 


ouvre les portes de votre derrie Ir 


NOUVEAU 


RAMEX 128 K AVEC V-C EXPAND VERSION 80-2 (5 600 F T.T.C.) 

Si vous souhaitez utiliser votre VISICALC avec : 

+ 136 K de mémoire + chargement d'un tableau complet en 20 secondes 
+ 80 colonnes sur l'écran (logiciel compatible avec 4 différentes cartes 
80 colonnes) 

+ Largeur de colonnes variable individuellement 

+ Curseur programmable 

+ Beaucoup d'autres améliorations très nombreuses 

(Ce logiciel qui est également compatible avec les cartes Saturn est dispo- 
nible séparément (1 150 F T.T.C.). La carte RAMEX 128 K est disponible 
aussi séparément pour 4 600 F T.T.C., y compris le logiciel SOLIDOS.) 


NOUVEAU 


LECTEUR DE CODE BARRE (2 340 F T.T.C) 

GÉNÉRATEUR DE CODE BARRE (2 340 F T.T.C.) 

CARTE RVB (1 500 F T.T.C.) avec système d'amélioration d'anomalies cou- 
leur. 

CARTE 80 COLONNES (1 900 F T.T.C.) : cette carte fonctionne avec notre 
carte RVBE. 


LES CARTES « PILOTS » 


U-TERM (1 490 F T.T.C.) 

Cette carte qui vous donne 80 colonnes sur l'écran vous permet d'avoir 
deux jeux de caractères à la fois qui sont co-résidents dans la mémoire 
vive et la mémoire morte de la carte. Par exemple, les caractères français 
majuscules et minuscules ainsi que les caractères anglo-saxons. Elle a 
une très grande gamme de compatibilité : APPLESOFT, PASCAL, CP/M, 
APPLEWRITER ||, etc. (Photo 2). 

U-Z80 (1 150 F T.T.C.): son point fort est la vitesse : 4 MHz. Compatible avec 
tous les logiciels CP/M ou de Z80 (Photo 1). 

U-RAM16 (890 F T.T.C.) : c'est une carte langage entièrement compatible 
avec INTEGER BASIC, PASCAL, VISICALC, etc. Pourquoi payer plus cher ? 
U-S232 (990 F T.T.C.) : une carte de série, vitesse variable entre 75 et 
19200 bauds. Cette carte contient son propre logiciel de handshake, ce qui 
permet de faire fonctionner une imprimante à sa vitesse optimale. Cornpa- 
tible avec le logiciel de communication VISITERM (Photo 9). 


DIVERS POUR L'APPLE II 


JOYSTICK TRACKBALL (660 F T.T.C) : une grande boule pour diriger vos 
navires spatiaux. 

CARTE HORLOGE (770 F T.T.C.) : au quartz avec pile et logiciel agenda. 
ROBOCOM BITSTICK (3 397 F T.T.C.) : un système très sophistiqué de des- 
sin graphique. 

D BASE II (5 200 F T.T.C.) : système de base de données relationnel (Z 80). 
JOYSTICK KRAFT (510 F T.T.C.) et JOYSTICK TG PRODUCTS (570 F T.T.C.): 
fabriqués aux États-Unis, ils sont d'excellentes qualité et fiabilité. 
LECTEURS DE DISQUES : toutes les configurations possibles entre 143 K 
octets et 2 M octets, entièrement compatibles avec l'Apple II. 

CCS carte synchrone (2 120 F T.T.C.) : pour dialoguer avec un IBM. 

DB MASTER (2 050 F T.T.C.) : très puissant. Base de données. 

DATA FACTORY (3 172 F T.T.C.) : peut-être la plus puissante des bases de 
données. 

ASCII EXPRESS PROFESSIONAL (1 376 F T.T.C.) : permet d'envoyer 
n'importe quel fichier en DOS par modem. 

MUMATH/MUSIMP Z80 (2 542 F T.T.C.) : très puissant logiciel mathémati- 


que. 
VENTILATEUR (750 F T.T.C.) : se branche à gauche de l'Apple II. Alimente 
l'Apple Il. 


Ouvert du mardi au samedi : 10h-12heti4h-18h 
60, rue Ducouédic - 75014 PARIS (Tél. : 321.41.80) 


NOUVEAU 


ACCELERATOR II (3 950 F T.T.C.) 

Cette carte, fabriquée par Saturn Systems, est équipée d'un microproces- 
seur 6502 C qui tourne à 3,58 MHz et de 64 K de RAM. Cette augmentation 
de vitesse de 358 % se traduit par une augmentation de rapidité d'exploita- 
tion de tous les programmes. La carte est directement compatible avec 
tous les langages et programmes (Applesoft, Integer, Binaire, Pascal, For- 
tran 77, Forth ainsi que tous les progiciels tels que Visicalc, DB Master, 
etc.). À la commande, spécifier version Apple || ou Apple //e. 


NOUVEAU 


PROGRAMMEUR D'EPROMS (1 360 F T.T.C.). La carte se branche dans un 
slot de l'Apple Il et permet de programmer directement les EPROMS (2758, 
2716, 2732 et 2764). Un logiciel de gestion du programmeur se trouve sur la 
carte de mémoire morte, Une carte existe également pour adapter les 
EPROMS programmés sur l'Apple Il (630 F T.T.C.). 


EXTENSIONS DE MÉMOIRE 


U-RAM 32K (1 450 F T.T.C.), U-RAM 64K (2 590 F T.T.C.), U-RAM 128K 
(4 250 F T.T.C.) (Photos 7 et 4). VERSA RAM émulateur de disque (690 F 
T.T.C.). 


CARTES SCIENTIFIQUES 


U-A/D (4 530 F T.T.C.) : carte analogue digitale haute vitesse, 12 bits, 
16 gammes (Photo 6). 

Carte AID 8 bits (1 400 F T.T.C.), 1 gamme (470 F T.T.C.) 

Carte D/A 8 bits (1 889 F T.T.C.), 1 gamme (450 F T.T.C.) 

U-BCD (1 050 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T.C.), 32 lignes entrée-sortie avec temporisateur et buffer 
U-TIM (1 090 F T.T.C.), temporisateur 

U-2 PORT 1 800 F T.T.C.) : 2 portes RS 232 sur la mème carte extensible 
jusqu'à 8 portes(Photo 5) 

THE MILL 6809 (NC) : co-processeurs à haute vitesse et de multiprogram- 
mation 

Carte 68000 (NC) 16 bits + 32 bits interne (Photo 3). 

Nous avons plusieurs autres cartes qui ne sont pas mentionnées ici; 
renseignez-vous 


ENSEMBLES D'EXPANSION VISICALC 


V-C 50K (3 560 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
32K 

V-C 82K (4580 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
64K 

V-C 145K (6 360 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
128K 

V-C consolidator (400 F T.T.C.) : pour consolider plusieurs tableaux de VISI- 
CALC 

V:-C super expand (700 F T.T.C.) : version 40 colonnes avec sauvegarde sur 
diskette en 20 secondes (le RAMEX 128K est nécessaire) 

V-C super expand 80 (900 F T.T.C.) : version 80 colonnes compatible avec 
les cartes omnivision 80, Videx et U-Term (le RAMEX 128K est nécessaire) 


NOUVEAU 


EPSON FX 80 (5 800 F T.T.C.) - PROMOTION 

Vitesse : 160 c.p.s., 80, 40, 137, 68, 96 ou 48 caractères par ligne, 
friction/traction, 9 formats graphiques, 9 jeux de caractères, RAM avec 
logiciel ouvert pour générer votre propre jeu de caractères, matrice de 11 
fois 9, espacement proportionnel, mode silencieux. 


Si vous ne voyez pas ce que vous cherchez ou si vous désirez de plus 
amples renseignements, téléphonez à MICRO-PÉRIPH (321.41.80). Si vous 
ne pouvez vous déplacer, téléphonez-nous pour connaître le revendeur le 
plus proche de chez vous ou complétez le bon de commande ci-dessous. 
TOUTES NOS CARTES SONT GARANTIES 12 MOIS 


BON DE COMMANDE 


À découper et envoyer à : 
MICRO-PÉRIPH, 60, rue Ducouédic - 75014 Paris - Tél. : 321.41.80 
Je désire recevoir rapidement, sous pli recommandé : 


QUANTITÉ DÉSIGNATION TOTALT.T.C. 


Total 
Frais de port recommmandé 


Ci-joint un chèque/C.C.P. de F : 





En raison des fluctuations monétaires, ces prix sont susceptibles d'être modifiés sans préavis. Nous consulter pour confirmation. 





JCR,DES MICRO-ORDINATEURS 
PROFESSIONNEL ET GRAND PUBLIC. 





APPLE II E 


Entièrement compatible avec l'Apple II 
il possède un clavier étendu Azerty/ 
Qwerty et une mémoire de 64K oct. 
d'origine. 

Déjà de nombreux logiciels et exten- 
sions disponibles sur ce nouvel ordi- 
nateur. 


APPLE III 


L'outil professionnel par excellence. 
128 Ko ou 256 Ko. Unité de disque 
incorporée. Sortie RS 232, Nombreux 
interfaces disponibles. Adjonction 
possible d'un disque dur de 5 méga. 
Profilé. Écran vert haute résolution 
antireflets. Clavier Azerty - Qwerty. 


MONITEURS VIDÉO 


Ponte 1927 NB us ue 1050F 
Prince 12" Vert ....... Re 1400 F 
Prince 12" Ambre .......... 1600F 
CIAEGT 12” Vert... 1720F 
Philips 12" ar PR 1720F 


Cabel12"CouleurRVB ....3500F 


Fermeture annuelle du 14 au 23 août neture annuelle du 14 au 23 août 1983 


COMMODORE 


BOUTIQUE 


244 


THOMSON 


U-RAM'IB KE. um à 890 F 
U-TIM carte horloge........ 1090F 
U-TERM carte 80 col........ 1490F 
U-780 carte CP/M ......... 1150F 
CP/M pour U-Z80.....:.:.. 750F 
Microbufier EPSON 16 K....2 450F 
Microbufier ext. 64K....... 3 300F 
Clavier numérique ......... 950 F 
Carte chat Mauve ......... 1400F 


Carte EVE pour Apple IE 2900F 


Carte80col. TEXTAILE ... 990F 
Carte 80 col. +64K AVE 2300F 
Poignées de contrôle ....... 185F 
JoyStiekR:- roman 380 F 


Carte Superterm 80 col. ....2590F 


Ventilateur Super Fan ...... 850 F 
Carte mémoire 64 K........ 2590F 
Carte mémoire 128 K ...... 3950F 
Produits consommables : 

Disq. SF/DD 3M les 10 ..... 210F 
Disq. DD/DD 3M les 10..... 452 F 
K 7 vierges les 10. ui. 70F 
Papier listing 80 col. ....... 290F 
Papier listing 132 col. ...... 350F 


— Catalogue gratuit sur demande — 


Tél. (1) 282.19.80 — 
VICTOR 
OSBONE 


CASIO 
SHARP 


58, rue Notre-Dame-de-Lorette 
75009.PARIS 


VISICORP 


Une série de logiciels d'aide à la déci- 
sion : Visicalc - Visiplot - Visidex -Visi- 


file. 
GMOTION 


ORIC 1 

Un ordinateur pour tous de 16 à 48K 
oct. RAM 

16 couleurs en graphisme haute résolu- 
tion. 

Synthétiseur de son et interface paral: 
lèle incorporés d'origine. 


Version 48 K. 2 080 F 





Crédit 4-36 mois — Leasing 36-48 mois — détaxe à l'exportation. 


59, rue du Docteur Escat 


13006 MARSEILLE 
Télex : 290350 F Tél. (91) 37.62.33 
SINCLAIR SIRIUS ESPON 
VISICORP SEIKO APPLE 





